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Vorwort 

Ich selbst habe seinerzeit Assembler auf einer IBM-360 gelernt. Damals war Rechen¬ 
zeit noch unheimlich teuer, weshalb man uns Anfänger zuerst mit sehr, sehr viel Theo¬ 
rie traktiert hat, bevor wir den kostbaren Computer mit unseren ersten einfachen Pro¬ 
grammen belästigen durften. Während der vielen Stunden Theorie hatte ich immer 
Probleme mir vorzustellen, wofür denn wohl was gut sein könnte. Richtig kapiert habe 
ich einiges von dem erst viel später, nämlich in der Praxis. Diese Vorgehensweise trifft 
man leider auch noch in vielen Büchern an. Nach zum Teil Hunderten von Seiten nack¬ 
ter Theorie kommt da endlich mal das erste Programm, wenn Sie Pech haben, sogar 
erst in Band 2. 

Ich möchte da anders Vorgehen. 

Die Theorie soll nur soweit gehen, wie es für das Verständnis des ersten einfachen Pro¬ 
gramms unbedingt erforderlich ist. Leider sind wir dann schon beim vierten Kapitel 
angekommen, aber ganz ohne Grundlagen geht es halt doch nicht. Wenn das erste Pro¬ 
gramm läuft, lesen Sie weiter Theorie, bis hin zum nächsten Programm, das dann schon 
etwas schwieriger ist. So arbeiten wir uns langsam hoch, bis Sie zum Schluß in der Lage 
sind, auch komplizierte Programme selbst zu schreiben. 

Noch etwas: Ein Assembler ist immer an eine ganz bestimmte CPU gebunden, hier den 
68000. Diese CPU gibt es zwar im Atari ST oder im Macintosh auch, deshalb läuft aber 
ein Atari-Programm noch lange nicht auf dem Amiga. 

Deshalb verzichte ich auf den ganz großen Leserkreis und schreibe dieses Buch speziell 
für den Amiga. Trotzdem, wenn Sie mal auf einen anderen 68000er umsteigen, dann 
können Sie Ihr hier erworbenes Wissen mitnehmen, Sie müssen nur die Internas des 
Betriebssystems des anderen neu lernen. Womit ich noch eine Aufgabe erwähnt hätte. 
Assembler-Programmierung ohne solide Kenntnisse von Exec, DOS oder Intuition ist 
nicht möglich. Auch das ist also nicht nur ein Kapitel in diesem Buch, sondern ein 
Faden (oder ein Seil), das sich durch alle Kapitel zieht. 

Zum Schluß ein guter Rat: Wenn ein Programm nicht läuft, dann sind immer die be¬ 
rühmten Kleinigkeiten die Ursache. Hübsch häßlich ist nun leider die Tatsache, daß in 
Assembler jeder noch so kleine Fehler mit kräftigen Strafzeiten geahndet wird, weil 
nach der Fehlerbeseitigung kein einfaches RUN reicht, sondern einige Programme ab¬ 
gearbeitet werden müssen. 
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Lassen Sie sich dadurch nicht entmutigen! Mit jedem Fehler lernen Sie dazu, und 
schließlich machen Sie immer weniger Fehler. Eine gewisse Zähigkeit gehört allerdings 
dazu. Andererseits: Wer eine Programmiersprache gelernt hat, und ich unterstelle, 
BASIC oder etwas anderes können Sie schon, der lernt auch eine zweite Sprache. 
Generell ist Assembler nicht schwieriger als BASIC, nur leider etwas umständlicher. 
Zu diesen Umständlichkeiten gehört auch, daß Sie - im Gegensatz zu BASIC - hier 
wissen müssen, wie der Computer funktioniert. 

Aber irgendwie macht es mir auch mehr Spaß, wenn ich meinen Computer sozusagen 
direkt programmieren kann. In einer Hochsprache bin ich immer auf die Güte (auch im 
Sinn von Gnädigkeit) des Compilers oder Interpreters angewiesen. Wenn das Ding un¬ 
genau rechnet oder viel zu langsam ist, ist mit dieser Erkenntnis die Sache ungelöst 
beendet, es sei denn, man kann in Assembler das Problem nun richtig angehen. 

In diesem Sinn (und nicht aufgeben!!) 


Ihr 

Peter Wollschlaeger 
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Wer sollte dieses Buch wie lesen? 

Das Buch wendet sich an Einsteiger und Umsteiger. Letztere können im Kapitel 1 die 
Abschnitte 1.1 bis 1.7 überspringen, im Kapitel 2 die Abschnitte 2.1 und 2.2, und das 
war’s auch schon. 

Ich muß die Umsteiger, soweit sie von den »8-Bittern« kommen, leider enttäuschen. 
Vorkenntnisse vom Z80, 8088 oder 6502 her nützen beim 68000 herzlich wenig, noch 
schlimmer, sie könnten sogar stören. Ernsthaft: Als Z80- oder 6502-Programmierer 
gewöhnt man sich gewisse Techniken und Denkweisen an, die zwar auf den 68000 
übertragbar sind, aber dann nur unnötig lange Programme ergeben. Vergessen Sie alle 
Adressierungsarten, die Sie da gelernt haben, den Begriff Akku streichen Sie ganz, 
Banking und Paging erst recht und noch vieles mehr. Am besten, Sie vergessen alles! 

Haben Sie schon 68000-Erfahrung, dann können Sie bei Kapitel 4 beginnen. Ähnliches 
gilt für die Leser, die von den Minis her kommen, speziell von der VAX. 

Der 68000 ist zwar ein Prozessor, über dessen fantastische Eigenschaften man bücher¬ 
füllend hochgestochene Traktate für Diplom-Informatiker verfassen kann, aber genau 
das tue ich nicht. In den Kapiteln 1 bis 3 bringe ich nur die Grundlagen, die Sie kennen 
sollten, um die ersten Programme schreiben zu können. Dann folgt Praxis, Praxis, 
Praxis. Erst in den Kapiteln 10 und 11 beginnt die Würdigung des 68000 und dann folgt 
schon wieder Praxis. 

Während des Praktikums wird folgende Linie verfolgt: 

1. Schilderung der Aufgabe 

2. Vorstellung der dafür erforderlichen Befehle und TOS-Funktionen 

3. Das Programmlisting 

4. Die Erklärung des Listings 

Stellenweise wird diese Ordnung durchbrochen, weil es manchmal sinnvoller ist, den 
Punkt 2 im Zusammenhang mit dem Listing zu erklären. 

Auf jeden Fall sollten Sie niemals zuerst das Listing lesen, sondern es im ersten Ansatz 
überspringen. 

Die Fülle der Informationen aller Kapitel sich zu merken, dürfte schwierig sein. Des¬ 
halb sind im Anhang unter anderem die 68000-Befehle und die DOS-Funktionen in 
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einem kompakten Format zusammengefaßt. Darüber und mittels des Stichwortver¬ 
zeichnisses sollte ein schnelles Nachschlagen möglich sein. 

Besonders die Anwender des SEKA-Assemblers seien auf das Kapitel 11 und die 
Anhänge hingewiesen. Dort finden Sie LVO-Tabellen und andere wichtige Daten, die 
sich andere Assembler von der Diskette holen. 


Falls Sie noch nicht mit dem CLI vertraut sind, lesen Sie bitte unbedingt den Anhang 5 
noch vor dem Kapitel 4! 




Kapitel 1 


Assembler: 


Was ist Assembler? 
Wie programmiert man in Assembler? 
Wann braucht man Assembler? 


Was braucht man an Software ? 
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In diesem Kapitel soll zuerst einmal gezeigt werden, was Assembler ist, wann man ihn 
braucht und was man an Software benötigt, um ein Programm in Assembler erstellen 
zu können. 

Eines vorab: Wenn mal ein paar Fachausdrücke auftauchen, die Sie nicht verstehen, 
einfach weiterlesen. Wenn wir sie wirklich brauchen, werden sie auch erklärt. 


1.1 Ganz unten: Maschinensprache 

Ein Computer an sich ist sehr dumm, nur sagenhaft fleißig. Gehässige Leute sagen 
auch, nur wer so dumm ist, ist auch so fleißig. Tatsächlich kann diese Maschine nicht 
bis Drei zählen, noch nicht einmal bis Zwei, sie kennt gerade die Null und die Eins. 
Ursache ist, daß die elektrischen Schaltkreise, aus denen ein Computer besteht, nur 
zwei Zustände annehmen können, nämlich Spannung da oder Spannung nicht da, 
Strom fließt oder fließt nicht, ein Transistor leitet oder sperrt. Ein paar Hundert- 
tausend dieser Schaltkreise (Transistoren) bilden nun die CPU (Central Processing 
Unit, Zentraleinheit, praktisch das Herz des Computers), nochmals mehr als 8 Millio¬ 
nen davon (so Sie einen Mega-Amiga haben) sind der Speicher (das Gedächtnis) des 
Rechners. 

Ein Programm ist nichts weiter als ein bestimmter Zustand dieses Speichers. Da es nun 
höchst unpraktisch ist, ein Programm in der Art zu beschreiben »Transistor 1 leitet, 
Transistor 2 auch, Transistor 3 sperrt, Transistor 4 leitet usw.«, kam man schnell auf 
eine Kurzschreibweise dieser Art: Der eine Zustand heißt 0, der andere 1. So kann man 
ein Programm doch schön kompakt schreiben, zum Beispiel als: 

010111001101010101010 usv. 

Das gefällt Ihnen nicht? Nun, das ist die Maschinensprache, mehr nicht!!! 

Was Sie wohl schon erkannt haben: Dieses 0101011-Muster ist eine Zahl in dualer 
Schreibweise (da komme ich noch drauf zurück). Diese Zahlen kann man umrechnen 
in Dezimal- oder Hexadezimal-Zahlen, das spart etwas Papier, es bleibt aber 
Maschinensprache. 
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1.2 Höher: Assembler 

Manche Leute behaupten nun, Assembler sei diese Maschinensprache. Gott sei Dank 
haben die unrecht, das wäre ja schrecklich. Die armen Kerlchen, die die ersten Com¬ 
puter so programmiert haben, tun mir heute noch leid. 

Assembler ist die nächsthöhere Stufe und war einst der ganz große Fortschritt und viele 
Jahre lang auch die einzige Sprache überhaupt. Nun muß ich leider doch noch etwas 
ausholen. 

Bits und Bytes 

Wenn Sie bei Bit nicht mehr zuerst an Bier denken, sind Sie schon Programmierer, 
O.K... Ein Bit ist eine Speicherstelle, ein solcher Schaltkreis im Computer, der nur 
diese Zustände 0 oder 1 annehmen kann. Aus technischen Gründen hat man immer 
8 Bit zusammengefaßt, diese 8 Bit nennt man ein Byte. Der Speicher eines Computers 
besteht aus tausenden oder Millionen von Bytes. Damit man nun jedes Byte ansprechen 
kann, sind sie durchnumeriert. Diese Hausnummern der Bytes nennt man Adressen. 
Mit den 8 Bit eines Bytes lassen sich in dualer Schreibweise die Zahlen 00000000 bis 
11111111 darstellen, dezimal ist das 0 bis 255. In ein Byte (der Fachmann sagt, auf eine 
Adresse) kann ich nun eine solche Zahl hineinschreiben und sie wieder herauslesen. 
Die sogenannten Peripherie-Geräte wie der Bildschirm, die Tastatur oder ein Drucker 
sind nun mit einem Teil des Speichers (unseren Bytes) verbunden. Wenn ich auf die 
richtige Adresse eine Zahl schreibe, dann erzeugt sie eine Wirkung auf dem Bild¬ 
schirm; wenn ich aus einer anderen Adresse etwas lese, dann kann das zum Beispiel 
eine Taste des Keyboards sein. 

Bewegen ist alles 

Folglich besteht ein Programm zum großen Teil daraus, Zahlen — man spricht auch 
von Daten — auf eine Adresse zu schreiben, von einer anderen zu lesen und ganz 
wesentlich, Daten von einer Adresse (zum Beispiel Tastatur) auf eine andere Adresse 
(zum Beispiel Bildschirm) zu kopieren. 

Neben den Daten kennt so ein Computer auch Befehle, natürlich auch nur als 
010101110, sprich als Zahlen. 

Nehmen wir an, die Zahl 11111111 ist der Befehl »Kopiere«, und wir wollen Daten von 
der Adresse 0000011 (dezimal 3) auf die Adresse 00001001 (dezimal 9) kopieren, dann 
lautet dieses Programm in Maschinensprache 

limni 
00000011 
00001001 
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In Assembler hingegen schreibt man dafür 
MOVE 3,9 

Move heißt bewegen, hier bewege, was im Byte mit der Adresse 3 steht, zum Byte mit 
der Adresse 9. Um gleich einen großen Denkfehler auszuschließen: Das Byte 3 bleibt 
unverändert, es wird nur in das Byte 9 kopiert. Sie haben recht, der Befehl müßte 
eigentlich COPY heißen, aber er heißt nun mal MOVE. 

So, den Unterschied zwischen Assembler und Maschinensprache hätten wir; ist doch 
ein Fortschritt, oder? 

Doch schon haben wir das nächste Problem. Der Begriff »Assembler« hat nämlich eine 
doppelte Bedeutung. Zum einen ist damit eine Programmiersprache gemeint, genauso 
wie zum Beispiel BASIC oder Pascal. Der Unterschied ist hauptsächlich, daß 
Assembler immer an eine bestimmte CPU gebunden ist. Es gibt zum Beispiel den Z80- 
Assembler, den 8088-Assembler und natürlich den 68000-Assembler, um den es hier 
geht. Die Sprache hat Befehle, wie alle anderen Sprachen auch, die Sie auch einfach so 
eintippen, wie üblich. 

Der große Unterschied zu zum Beispiel BASIC ist dann nur, daß Sie danach nicht 
RUN eingeben können, sondern den Text erst assemblieren müssen. Genau das erle¬ 
digt ein Programm, das dummerweise auch Assembler heißt. Dieses Programm über¬ 
setzt den Text in die Maschinensprache, also die 0101010-Folge, die die CPU letzt¬ 
endlich eh nur versteht. 


1.3 Ganz oben: Hochsprachen 

In einer Hochsprache, wie zum Beispiel Pascal, geben Sie auch nur Text ein; auch der 
muß übersetzt werden, nur heißt dann das Übersetzungsprogramm nicht Assembler, 
sondern Compiler. Das heißt, sowohl nach einem Assembler- als auch nach einem 
Compilerlauf entsteht ein Programm in Maschinensprache, das auf einem Computer 
ausgeführt werden kann. Über Größe und Schnelligkeit der Programme ist damit noch 
nichts gesagt. 

Ganz anders sieht es bei einem Interpreter aus; der typischste Vertreter dieser Gattung 
ist wohl BASIC. Auch hier geben Sie das Programm als Text ein. Vielleicht wird es 
nach der Eingabe noch etwas aufbereitet und komprimiert, aber es bleibt Text, der 
nicht die geringste Ähnlichkeit mit Maschinensprache hat. Folglich kann der Computer 
ein BASIC-Programm auch nicht ausführen. Diese Aufgabe übernimmt der Inter¬ 
preter. Er liest den BASIC-Text Zeichen für Zeichen und untersucht ihn auf BASIC- 
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Befehle. Findet er einen BASIC-Befehl, so ruft er eine Routine auf, die den Befehl 
ausführt. Die Routine befindet sich natürlich als ausführbares Maschinenprogramm im 
Speicher. Sie übernimmt es auch, zu einem BASIC-Befehl gehörige Daten (Parameter) 
im BASIC zu suchen. Selbstverständlich ist auch der Interpreter selbst ein Programm in 
Maschinensprache. Alle schnellen BASIC-Interpreter sind in Assembler geschrieben. 


1.4 Assembler im Prinzip 

oder: warum so umständlich? 

Ja, wenn denn nun der Compiler genauso Maschinen-Code erzeugt, wie ein Assembler, 
dann sollte ich mir die Sache doch noch einmal genau überlegen. 

In Pascal zum Beispiel schreibe ich einfach nur 

Write('Hallo') 

und in Assembler tippe ich dafür (nur als Beispiel): 

MOVE /'H’,4711 
MOVE /'a',4712 
MOVE /'1’,4713 
MOVE /’1’,4714 
MOVE /'o',4715 

Demnach ist ein Assembler-Programm die Auflösung von zum Beispiel Pascal-Befeh¬ 
len wie WRITE in viele Einzelbefehle. Man kann es auch anders sagen: Pascal kennt 
eine bestimmte Menge von Befehlen, aus denen der Compiler die passende Folge von 
Assembler-Befehlen erzeugt. 

Tatsächlich ist jedes Assembler-Programm (in der noch nicht übersetzten Textform) 
immer länger als sein Äquivalent in einer Hochsprache. Nur wenn Sie einmal nach dem 
Assemblieren bzw. dem Kompilieren jeweils die Bytes des Codes zählen, dann ist ein 
Assembler-Programm drastisch kürzer und schon deshalb auch schneller. Das liegt 
daran, daß kein Compiler einen so kompakten Code generieren kann, wie es ein 
Assembler-Programmierer tut. Letzterer weiß ja, was er will, er kann jede Befehlsfolge 
»maßschneidern«, ein Compiler hingegen muß Universallösungen einsetzen. 

Ganz drastisch, im Tempo so bis zu Faktor 200, ist der Unterschied zu einem BASIC- 
Interpreter. Dieser übersetzt - wie schon geschildert - erst während der Laufzeit, und 
dann immer nur einen Befehl. Das heißt, wenn in einer Schleife ein Befehl lOOmal 
wiederholt wird, dann wird er auch lOOmal übersetzt. In einem Assembler-Programm 
hingegen ist der Befehl schon übersetzt. 
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1.5 Wann Assembler und wann besser nicht? 

Nun mag ja manche Leute das Tempo nicht stören, sie haben Zeit, aber es gibt da noch 
einige Gründe. 

Ein BASIC-Interpreter (oder ein Pascal-Compiler) kratzt eigentlich nur an der Ober¬ 
fläche eines Riesenpotentials von Möglichkeiten, die in so einem Computer stecken. 
Will man mehr oder etwas anderes, dann muß man das der CPU nur sagen, allerdings 
in ihrer Sprache, und das ist nun mal Assembler. 

Noch ein Grund: Man sollte eigentlich immer die Sprache verwenden, die das jeweilige 
Problem mit minimalem Aufwand löst. Oft genug, sogar meistens, ist das nicht 
Assembler. Ich möchte sogar fast behaupten, je besser man Assembler kann, desto 
weniger braucht man ihn. Ein Assembler-Programmierer weiß nämlich, was er mit wel¬ 
chen zum Beispiel BASIC-Befehlen der CPU an Arbeit zumutet und kommt so 
zwangsläufig zu besseren Programmen. Denn das muß ich nun leider auch noch erwäh¬ 
nen, Assembler setzt gute Kenntnisse der Funktion eines Rechners voraus. 

Aber zum Trost: Diese Kenntnisse erwirbt man am besten, wenn man Assembler lernt. 

Untersucht man nun ein Programm, das in einer Hochsprache geschrieben wurde oder 
geschrieben werden soll, dann stellt man fest, daß es nur an einigen Stellen (meistens 
nur an einer Stelle) das Tempoproblem gibt oder die passende Funktion fehlt. Dann 
sollte man auch nur diesen Teil in Assembler schreiben und ihn in die Hochsprache 
einbinden. Wie das geht, »kriegen wir später«. 

Wie auch immer: Die Sprachen weit weg von der Maschine nennt man Hochsprachen, 
in Assembler sind wir »ganz unten«. Auch wenn Sie später nur noch in den höheren 
Regionen schweben, Sie wissen, mit einer soliden Grundausbildung schwebt es sich 
leichter, und man fällt nicht so leicht herunter. 


1.6 Was man wofür an Software braucht 

Die typische Arbeitsfolge einer Programmentwicklung in Assembler sind Texteingabe, 
Assemblieren, Linken (kommt gleich) und Testen. 

Das sind Ihre Werkzeuge, und wie in jedem Handwerk kommt es darauf an, daß Sie 
mit den richtigen Werkzeugen arbeiten. Da gibt es nun leider eine große Auswahl, und 
die Prospekte der Hersteller versprechen alle viel. Ich möchte Ihnen hier einige Tips 
geben, die Sie bei der Auswahl beachten sollten und dann einige typische Erzeugnisse 
vorstellen. Vergessen Sie eines nie: Ein Assembler ist ein Profi-Werkzeug, das eine 
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gute Dokumentation und Support braucht. Natürlich bekommen Sie ein (versehentlich) 
kopiertes Spielprogramm auch per »Trial and Error« zum Laufen. Dies auf einen 
Assembler anzuwenden, dürfte nur etwas für Leute mit sehr guten Nerven und unend¬ 
lich viel Zeit sein. Es kann nämlich durchaus sein, daß alle Programme in diesem Buch 
mit Ihrem speziellen Assembler nicht laufen, weil Ihr Assembler an einer Stelle einen 
Punkt verlangt, den meiner nicht braucht. Warum also knobeln, wenn alles im Hand¬ 
buch steht. 


1.6.1 Der Editor 

Den Editor brauchen Sie für die Texteingabe und dessen Korrektur. Den Text nennt 
man Quelltext (Source-Text). Üblicherweise werden Editor und Assembler zusammen 
verkauft. Sie können aber auch ohne weiteres Ihr gewohntes Textverarbeitungs¬ 
programm nehmen, wenn Sie sich auf reinen Text (keine Formatier- und Steuer¬ 
zeichen) beschränken. Auch ED (gehört zum Amiga) ist dafür brauchbar. 

Der Assembler meldet Ihnen Fehler mit einer Zeilennummer, der Text wird aber ohne 
Zeilennummern eingegeben. Demnach sollte der Editor ein »Go To-Zeile« können. 
Besser ist natürlich, wenn er selbst die Zeile mit dem Fehler anspringt. Da Sie Pro¬ 
gramme gegebenenfalls umgestalten und recht oft Textteile kopieren (und geringfügig 
ändern), sollte das Bewegen und Kopieren von Blöcken möglich sein. 


1.6.2 Der Assembler 

Ist der Text fertig (und auf der Diskette), starten Sie den Assembler, der dann minde¬ 
stens wissen will, wie der File mit dem Quelltext (Source-File) heißt. Der Assembler 
erzeugt den Maschinen-Code (dieses 010101010), - auch Objekt-Code genannt - und 
legt diesen in dem Ziel-File (dem Objekt-File) auf der Diskette ab. Das kostet natürlich 
Zeit, und so erscheint es sinnvoll, auch »in memory« assemblieren zu können. Das 
heißt, der Assembler schreibt auf Wunsch den Code direkt in den Speicher, und man 
kann das Programm zu Testzwecken starten. Das Feature sollten Sie aber nicht über¬ 
bewerten, denn das gleiche Ziel erreichen Sie auch mit einer RAM-Disk oder vom 
Zeitverhalten her gesehen auch mit einer Festplatte. In beiden Fällen muß natürlich 
der Assembler auch auf einer RAM-Disk bzw. einer Festplatte laufen. Darauf sollten 
Sie aber eh bestehen. Sonst sind noch folgende Eigenschaften wichtig: 

»Include-Files«: 

Der Assembler kann Textmodule einbinden. Das ist sehr wichtig, denn Amiga-Pro- 
gramme benötigen immer die sogenannten Libraries (Bibliotheken), die als Text¬ 
module vorliegen. Außerdem haben Sie sich nach einer Weile selbst eine kleine Biblio¬ 
thek von Routinen angelegt, die Sie in fast jedem Programm brauchen. 
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Makrofähig: Ausführlich werden Makros im Kapitel 6 behandelt. Hier nur soviel: 
Makros tragen stark zur Rationalisierung der Arbeit bei und helfen, Fehler zu ver¬ 
meiden. 

Fehlermeldungen: Schauen Sie im Handbuch nach. Je länger die Liste der Fehler¬ 
meldungen ist, desto besser werden Sie informiert. 

Warnungen: Ein guter Assembler warnt Sie (berät Sie), wenn Sie nicht optimal pro¬ 
grammiert haben. Auch hier gilt: je mehr »Warnings« desto besser. 


1.63 Der Linker 

Nun brauchen Sie den Linker, zu deutsch Binder. Der Binder hat zwei Aufgaben: 

Zum einen können Sie ein Programm in Module aufteilen, die Sie getrennt assemblie- 
ren und testen können (bei sehr großen Programmen empfehlenswert). Diese Module 
müssen Sie dann mit dem Linker zu einem Programm zusammenbinden. Der zweite 
Grund liegt beim Amiga selbst. Jedes Programm hat einen kleinen Vorspann, Header 
genannt, in dem zum Beispiel steht, wie groß das Programm ist. Ohne diese Informa¬ 
tion kann der Amiga das Programm nicht laden und starten. Folglich muß der Linker 
zumindest diesen Header mit Ihrem Programm binden. Es gibt aber auch Assembler, 
die das schon tun. Das erspart den Linkerlauf, was man durchaus positiv sehen sollte. 
Besonders ALINK (der Standard-Linker) ist sehr langsam. Der Nachteil der fehlenden 
Modulisierung sollte dann aber durch »Include«-Fähigkeit und Makros ausgeglichen 
werden können. 


1.6.4 Der Debugger 

Starten Sie nun Ihr Programm, gibt es drei Möglichkeiten: Entweder es läuft oder es 
läuft nicht oder es läuft falsch. Um den Bug (Programmierer-Slang für Fehler) zu fin¬ 
den, bieten sich viele Lösungen an. Die einfachste (und meist erfolgreichste) Methode 
ist ein tiefer Blick auf den Quelltext kombiniert mit intensivem Nachdenken. 

Wenn Sie aber wissen wollen, was das Programm an einer bestimmten Stelle tut oder 
welche Werte dann einige Variable haben, wird’s schwierig. Möglich ist es, an diesen 
Stellen sozusagen ein »PRINT A,B« einzubauen, was aber in Assembler recht aufwen¬ 
dig ist, wie wir noch sehen werden (es gibt keinen Print-Befehl). Praktischer ist es dann, 
einen sogenannten Debugger (Entwanzer, Fehler sind Wanzen!) einzusetzen. Das ist 
ein Programm, mit dem Sie Ihr Programm in Einzelschritten ablaufen lassen und sich 
an jeder Stelle die Werte der Variablen ansehen können. 
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Versprechen Sie sich aber nicht zuviel von einem Debugger. So ein Programm ist gar 
nicht so einfach zu bedienen und wird Sie gerade in der Anfangsphase mehr verwirren, 
als daß es Ihnen hilft. Hinzu kommt, daß Beginner meistens Fehler begehen, die der 
Compiler schon findet. Nochmals, weil es so wichtig ist: Der Fehler steckt immer im 
Quelltext. Ein tiefer Blick darauf und intensives Nachdenken ist der beste Debugger! 
Wenn Sie einen Debugger erwerben, so müssen Sie auf zweierlei achten: 

Zuerst sollte es ein symbolischer Debugger sein. Das bedeutet folgendes: Im 
Assembler-Programm arbeiten Sie niemals mit absoluten Adressen, sondern mit Labels 
(Marken), das sind dann die symbolischen Adressen. Der Assembler führt nun eine 
Tabelle, in der er zu den »Symbolen« die echten Zahlen notiert. Ein symbolischer 
Debugger greift nun einfach auf diese Symboltabelle des Assemblers zu. Daraus folgt 
nun die zweite Forderung, nämlich daß der Debugger das auch kann, sprich zum 
Assembler kompatibel ist. 


1.7 Was man kaufen sollte (und was nicht) 

Editor, Compiler, Linker und Debugger (soweit vorhanden) werden meistens im Paket 
angeboten (so sollte es sein). Häufig gehört dazu noch eine sogenannte Shell (eigene 
Benutzeroberfäche), die es Ihnen gestattet, zum Beispiel direkt vom Editor in die Shell 
zu wechseln, wo Sie dann den Linker aufrufen. Das ist, sofern man ohne RAM-Disk 
arbeitet, schneller als der Umweg über die Workbench bzw. das CLL Ansonsten hat 
eine gute Shell den Vorteil, daß sie sozusagen eine für die Programmierung maßge¬ 
schneiderte Workbench ist. 


1.8 Drei Assembler im Vergleich 

Der folgende Abschnitt ist ein Testbericht, den ich schon in »Computer persönlich« 
veröffentlicht habe. Er setzt einige Dinge voraus, die erst später im Buch genauer er¬ 
klärt werden. Lassen Sie sich dadurch nicht ins Grübeln bringen, sondern ignorieren Sie 
diese Passagen vorerst. Ich bin sicher, daß Sie nach diesem Abschnitt trotzdem genau 
wissen, wie die einzelnen Assembler Ihren Ansprüchen gerecht werden. 

Erprobt wurden die Assembler von Metacomco, Kuma (K-SEKA) und HiSoft (DEV- 
PAC Amiga). Der Metacomco-Assembler ist der Standard-Assembler für den Amiga. 
Das sollte jedoch kein Grund sein, genau diesen zu nehmen, denn die Konkurrenten 
müssen bekanntlich immer etwas bieten, was sie vom Standard vorteilhaft unter¬ 
scheidet. 
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Bleiben wir also vorerst bei Metacomco, um so besser können wir dann auf die Unter¬ 
schiede eingehen. Geliefert wird eine Diskette mit der Aufschrift »Macro Assembler 
for the Amiga, Version 11.00«. Das ist sicherlich nicht die 11. Amiga-Version. Der Her¬ 
steller liefert seit Jahren 68K-Assembler und paßt diese nur an verschiedene Rechner 
an. 

Ansonsten beginnt der Frust beim Lesen des Handbuchs. Außer im Titel kommt näm¬ 
lich das Wort »Amiga« im Manual praktisch nicht mehr vor, soll heißen, es wird mit 
keiner Silbe darauf eingegangen, wie man ein Assembler-Programm auf dem Amiga 
zum Laufen bringt. 

Metacomco schwach dokumentiert 

Es bleibt dem Leser überlassen, doch einmal auf der Diskette nachzusehen, wo er dann 
auch ein simples Beispiel findet, was aber die Fähigkeiten des Amiga (Grafik, Multi¬ 
tasking) völlig unberücksichtigt läßt. Der Umgang mit den beim Amiga eminent wichti¬ 
gen Libraries wird nicht erwähnt, Dinge, wie der Unterschied zwischen CLI-Routinen, 
CLI-Tasks und Intuition-Tasks bleiben damit auch unerwähnt. Langer Rede kurzer 
Sinn: Wer nicht schon den 68000-Assembler im allgemeinen und den Amiga im beson¬ 
deren beherrscht, hat keine Chance, anhand dieses Manuals das Programmieren des 
Amiga zu erlernen. Metacomco unterstellt offensichtlich, daß der Anwender über die 
komplette Amiga-Dokumentation verfügt (oder ein Buch wie dieses besitzt). 

Der Erwerb des DOS-User-Manuals sowie des Developer’s Manuals wird sogar aus¬ 
drücklich in der Einleitung empfohlen. Um so mehr verwundert es, daß sich die ersten 
18 Seiten des Assembler-Manuals mit dem Editor ED befassen, der schon im DOS- 
Manual beschrieben ist (Metacomco liefert keinen eigenen Editor mit). Blieben die 
Seiten 19-50, auf denen der Assembler an sich vorgestellt wird. Hierbei handelt es sich 
um einen zwar konventionellen, aber grundsoliden 68K-Standard-Assembler, der 
punktgenau die Motorola-Spezifikation erfüllt. Die einzelnen Direktiven werden der 
Reihe nach gehstet. Auch hier wird unterstellt, daß der Leser weiß, was er damit anfan¬ 
gen kann; Beispiele fehlen nämlich. Die letzten acht Seiten schildern die Makro- 
Funktionen, die dem Kind auch den Namen gegeben haben. Dieser Makro-Teil ist 
lobenswert und für eine sinnvolle Amiga-Programmierung nahezu unabdingbar. Eine 
Unmenge von Makros ist auch Teil der mitgelieferten Include-Files, die sich übrigens 
präzise an die Listings im Kernel-Manual (Amiga-Dokumentation) halten. Makros 
können bis zu 36 Argumente (0..9, A..Z) übergeben werden, wobei Argument Nummer 
0 immer für den Typ (B, W, L) reserviert ist. Makros können vorher definierte Makros 
aufrufen. Diese Schachtelung ist bis zu einer Tiefe von zehn erlaubt. Innerhalb eines 
Makros können Bedingungen geprüft und gegebenenfalls die Makro-Expansionen ver¬ 
lassen werden. 


Bedingtes Assemblieren ist übrigens auch möglich. 
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SEKA: Weit weg vom Standard 

Der SEKA-Assembler ist von der Idee her ganz phantastisch, nur die praktische Um¬ 
setzung der Idee ist unbefriedigend. SEKA ist ein Programm, das Editor, Assembler 
und Debugger vereinigt. Alle Teile sind permanent im RAM. Auch das Assemblieren 
erfolgt »in memory« und ist deshalb sagenhaft schnell. Leider wird nur ein Include-File 
mitgeliefert (DOS-Lib), und damit hätten wir die größte Schwachstelle des Systems 
angesprochen. Die Include-Files für typische Amiga-Programme (Grafik, Sound, Intui¬ 
tion zum Beispiel) fehlen nämlich. Wer nun auf die Idee kommt, sich diese Files 
»unauffällig« von Metacomco oder HiSoft zu besorgen, wird enttäuscht werden. Zum 
einen kennt nämlich der SEKA-Assembler keine Include-Anweisung. Die Files müssen 
in den Quelltext eingefügt werden, was zu sagenhaft langen Listings führen kann. Ich 
empfehle Ihnen als SEKA-Anwender, sich Ihre eigenen Include-Files anhand der LVO- 
Listen im Anhang dieses Buches aufzubauen. 

Da sich diese Listen nach der Standard-Syntax richten, müssen Sie allerdings zwei 
Änderungen vornehmen: Der Unterstrich vor den Namen muß entfallen. Nach den 
Namen sind Doppelpunkte einzusetzen. 

Zum zweiten beinhalten die Include-Files auch Makros. Diese kann SEKA zwar auch 
behandeln, nur leider verwendet er dafür eine andere Syntax. In diesem Punkt ist 
SEKA auch sonst konsequent, kräftige Abweichungen vom Standard sind die Regel. Im 
Kapitel 4 werden die Unterschiede anhand eines Beispielprogramms geschildert. Am 
Ende des Listings wird besonders deutlich, wie die Assembler-Direktiven SEKA vom 
Standard abweichen. Leider gibt es aber auch bei der 68K-Mnemonik Unterschiede. So 
erkennt SEKA zum Beispiel MOVEA nicht an, sondern besteht auf ein einfaches 
MOVE. 

SEKA wird über Buchstaben-Kürzel gesteuert, die ein einfaches Umschalten zwischen 
Editor, Assembler und Debugger ermöglichen. Die Schwachstelle ist der Editor. Ur¬ 
sprünglich als Zeileneditor konzipiert, wurde er noch um einen einfachen Schirmeditor 
ergänzt. Letzterer ist aber recht spartanisch ausgestattet und recht langsam, so daß man 
doch sehr oft wieder in den Zeilenmodus zurückschalten muß. 

Wiederum nur ein Tastendruck löst dann den Assembler aus, der mit einqr so hohen 
Geschwindigkeit arbeitet, daß man bei mittelprächtigen Programmen eine Assemblier- 
zeit praktisch nicht wahrnimmt. Ist das Programm fehlerfrei assembliert, sollte man es 
tunlichst auf der Disk sichern, denn der folgende Debug-Lauf könnte Probleme erge¬ 
ben. Laut Handbuch reicht es zwar, auf das letzte Statement (hier RTS) einen 
Breakpoint zu setzen, doch soweit kommt das Programm im Debug-Modus oft gar 
nicht. Sobald das Programm nämlich auf einen Input wartet, hängt es sich schlicht auf. 
Hier hilft nur noch ein Neustart. Nun bin ich allerdings der Ansicht, daß Eingabe-Rou¬ 
tinen wesentliche Bestandteile von Programmen sind. Was nützt mir also ein Debugger, 
der genau da nicht mitspielt? 
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Das Handbuch von SEKA ist mit 34 Seiten noch kleiner als das von Metacomco, trotz¬ 
dem findet der Beginner dort mehr nützliche Informationen. Der Editor wird auf den 
Seiten 4-7 beschrieben, die Seiten 8-13 stellen den Assembler vor, 14-18 den Debug¬ 
ger. Nach zwei weiteren Seiten über File-I/O wird auf 21-23 der Linker vorgestellt. 

Das Kapitel über den Linker habe ich zweimal gelesen, um dann festzustellen, daß es 
gar keinen Linker gibt, sondern nur den Assembler, der auch linken kann. Praktisch 
gibt es einen Bereich für den Objekt-Code und einen für den zu linkenden Code. Mit 
CL wird ersterer in den Link-Bereich kopiert oder mit RL ein Modul in den Link- 
Bereich eingelesen. Der Assembler erzeugt normalerweise ausführbaren Code, mit der 
L-Option hingegen generiert er linkbaren Code. 

Man kann nun mit RL mehrere Module in den Link-Bereich einiesen (werden anein¬ 
andergehängt). Im Code-Bereich darf dann nichts sein oder der Quelltext des ersten 
Moduls, der dann vorab assembliert wird. Assembliert man nun ohne L-Option, wird 
das Ganze gebunden, vorausgesetzt man hat alle Module in absoluter Adressierung 
geschrieben. Da lobe ich mir doch einen Linker, den ich nur mit einer Liste aller zu 
bindenden Files versorgen muß, bzw. ihm sagen kann, aus welchen Bibliotheken er sich 
die fehlenden Module holen soll. 

Idealer Linker nur bei HiSoft 

Diese Eigenschaften besitzen sowohl der Linker von Metacomco als auch der von 
HiSoft. Metacomco setzt den Standard-Linker des Amiga ein. Der Linkerlauf muß bei 
Metacomco folgen, was sehr viel Zeit kostet. Bei HiSoft kann man wählen, ob der 
Assembler ausführbaren oder linkbaren Code erzeugen soll. Im Normalfall wird man 
auf letzteres verzichten. Will man doch Module einbinden, hat man allerdings einen 
Vorteil. HiSoft liefert einen Linker mit, der zu ALINK kompatibel ist, nur deutlich 
schneller. Wohl um den Fortschritt gegenüber ALINK anzudeuten, erhielt dieser Lin¬ 
ker den sinnigen Namen BLINK (sprich B-Link und nicht Blink). 

Damit wären wir auch schon beim dritten Produkt, nämlich dem DEVPAC von HiSoft 
angekommen. Um es gleich zu sagen, ich habe mir das Beste zum Schluß aufgehoben. 
Neben BLINK besteht das Paket aus dem Editor/Assembler GENAM, dem Debugger 
MONAM und dem kompletten Satz aller I-Files (voll mit Metacomco kompatibel) 
sowie einigen Demo-Programmen. Auch der wichtige Startup-Code liegt im Quelltext 
vor (ohne den Bug, den das Listing in der Amiga-Dokumentation hat). Zusätzlich gibt 
es noch ein Programm mit dem Namen GEMINST, das eine Voreinstellung bestimm¬ 
ter Parameter, wie zum Beispiel bevorzugte Größe des Textpuffers oder des Tabulator- 
Rasters erlaubt. 

Beim Editor handelt es sich um einen Schirmeditor mit Pull-down-Menüs, die auf 
Assembler-Zwecke ausgelegt sind. Auffallend im Vergleich mit ED ist das sehr hohe 
Tempo, mit dem der Text gescrollt werden kann oder Such- und Ersetz-Funktionen 
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laufen. Der Code von GENAM ist mit 33 Kbyte sehr kompakt und wird deshalb auch 
erfreulich schnell von der Diskette geladen. Alles in allem ist das schon ein gutes Bei¬ 
spiel für die Vorteile der Assembler-Programmierung auf dem Amiga. 

Wordstar mit Maus 

Über die Vor- und Nachteile mausbedienbarer Editoren ist schon viel geschrieben 
worden, hier erübrigt sich jede Diskussion. Der Cursor kann mittels der Pfeiltasten 
positioniert werden oder über Control-Codes, die mit Wordstar kompatibel sind, oder 
auch mit der Maus. Letzteres ist sicher von Nutzen, wenn man eine Position anfahren 
will, die normalerweise diverse Einzelschritte erfordert. 

Einen Fehler hat dieser Editor allerdings, den ED und auch K-SEKA nicht kennen: 
GENAM mag kein Deutsch, zumindest nicht auf einem Amiga 2000 mit deutscher 
Tastatur. Momentan habe ich in die »Startup-Sequence« ein »setmap usaO« eingebaut. 
Wenn ich dann blind tippe und mir dabei immer vorstelle, eine ASCII-Tastatur unter 
den Fingern zu haben, geht es. Trotzdem, ein Brief an HiSoft ist schon unterwegs. 

Der Assembler wird vom Editor aus aufgerufen. Auch hierzu kann man den Befehl aus 
einem Pull-down-Menü ziehen oder ein Tastenkürzel (Amiga-A) tippen. Nach dem 
Assembler-Lauf ist man wieder im Editor. Liegt kein Fehler vor, kann man den Editor 
verlassen und das Programm, das dann schon ausführbar auf der Disk steht, aufrufen. 
Es gibt allerdings auch die Option, linkbaren Code zu erzeugen, der dann mit ALINK 
(schneller mit BLINK) noch zu binden ist. Hatte der Assembler Fehler festgestellt, 
werden diese im Klartext angezeigt. Nach deren Studium ist man mit einem Tasten¬ 
druck wieder im Editor. Nun kann man die fehlerhaften Zeilen mit »GOTO Zeilen¬ 
nummer« anspringen. Noch schneller ist das Kürzel »Amiga-J« (Menü-Punkt »Jump to 
error«), was direkt auf die erste fehlerhafte Zeile führt. Zusätzlich gibt es noch die 
Option, ins-Nichts zu assemblieren, womit eine schnelle Syntaxprüfung möglich ist. 

Wie lange dauert es nun, bis ein ausführbares Programm auf der Diskette steht? 
Gewählt wurde das jeweilige Beispiel-Listing aus Kapitel 4, allerdings unter Nutzung 
der Include-Files (nur bei Metacomco und DEVPAC vorhanden). 

Zuerst die Zeiten: 

SEKA: 5 Sekunden 

Metacomco: 95 (87) Sekunden 

HiSoft: 11 (2) Sekunden 

Metacomco verbraucht sehr viel Zeit mit dem Linken, Zeiten die bei den beiden ande¬ 
ren entfallen. Der reine Assembler-Lauf dauert bei SEKA nur Sekundenbruchteile, die 
Zeit ging für das Abspeichern auf die Diskette drauf. HiSoft schreibt direkt auf die Dis¬ 
kette. Es ist allerdings kein Problem, den Editor/Assembler plus diverse Libraries in 
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der RAM-Disk zu halten. DEVPAC belegt 33 Kbyte, MonAm 18 Kbyte, alle Libs 
zusammen (braucht man nie) verlangen rund 180 Kbyte, es bleibt also immer noch 
genug Platz für Source und Code. In dieser Betriebsart hat man praktisch die Vorteile 
von SEKA mit dem Komfort von DEVPAC kombiniert. Das ausführbare Programm 
entsteht dabei in knapp einer Sekunde. Ferner kann man bei DEVPAC auch ohne 
RAM-Disk auf Zeiten in der Größenordnung von 2 Sekunden kommen, wenn man die 
Include-Files durch EQU-Anweisungen im Text ersetzt, wie es die Listings in den 
Kapiteln 4 und 5 zeigen. 

Mon Ami 

Der Debugger von HiSoft heißt MonAm, ich übersetze das immer mit »mon ami«, weil 
es sich hier wirklich um einen freund(lichen) Debugger handelt. MonAm ist ein sym¬ 
bolischer Debugger, er arbeitet jedoch auch klaglos mit Code-Files ohne Symboltabelle. 
MonA m bietet zuerst alle Monitorfunktionen, kann disassemblieren, tracen, Break¬ 
points behandeln, kurz, alles, was gute Programme dieser Art so bieten, ist vorhanden. 
Auffallend ist nun, daß man mit MonAm praktisch nie abstürzen kann. Das liegt 
schlicht daran, daß er alle »Gurus« abfängt, sprich die Exception-Vektoren auf seinen 
eigenen Händler »verbiegt«. Konzeptbedingt kann MonAm ein Programm (Task) nur 
laufen (tracen) lassen, wenn der Task »schläft«. Der Versuch der Zuwiderhandlung 
läßt die Meldung »Task must be suspended« erscheinen. 

MonAm setzt automatisch einen Breakpoint auf den ersten Befehl. Wenn man will, 
kann man von da aus Schritt für Schritt durch das Programm gehen. In einem Fenster 
erscheinen dann alle Registerwerte, im nächsten steht ein Speicherauszug in hex und 
ASCII (stellt man auf seinen Datenbereich). Darunter folgt ein Stück des Quelltextes 
mit einem Pfeil auf die aktuelle Zeile. Alles in allem heißt das, man kann zu jedem 
Befehl direkt ablesen, wie er auf Speichervariable und Register wirkt. Wer dann den 
Fehler nicht findet.... 

Bestes Manual hat HiSoft 

Das Handbuch des DEVPAC ist mustergültig. Es beginnt mit präzisen Anweisungen 
zum Erstellen der Sicherungskopien. Wie man sein System für ein oder zwei Drives 
oder eine Harddisk einrichtet, wurde auch nicht vergessen. Dann folgt ein Blitzkurs, in 
dem anhand eines Musterprogramms auf der Diskette präzise erklärt wird, wie Editor, 
Assembler und Debugger zu bedienen sind. Nun weiß man, das alles läuft, und kann 
sich den einzelnen Kapiteln widmen, die alles weitere sehr präzise, gut verständlich und 
trotzdem kompakt beschreiben. 

Im Anhang werden einige wichtige Grundlagen geschildert, speziell das für den Amiga 
wichtige Thema »Libraries«. Es folgt ein Schnellkurs »in Sachen CLI«, gefolgt von 
einer sehr detaillierten Anweisung, wie man sich eine neue CLI/DEVPAC-Disk 
einrichten muß, wenn man zum Beispiel von WB 1.1 auf WB 1.2 umsteigt. 
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Im Handbuch befindet sich noch ein kleines Buch, nämlich das »Programming Pocket 
Reference Guide« von Motorola, sprich die offizielle Dokumentation aller 68 Kbyte- 
Befehle. 

Fazit: HiSoft, Sieger nach Punkten 

Für mich eindeutig das beste Paket ist das DEVPAC von HiSoft. Begründung: schnell, 
komfortabel, kompatibel. 

Wer Low-Level-Programmierung im wahrsten Sinn des Wortes treiben will, ist mit 
SEKA gut bedient. Gemeint ist damit: Wie einst auf dem C64, wo man die Grafik mit 
»Poke, Poke, Poke« programmierte, kann man das beim Amiga sehr schön in 
Assembler, nur daß das dann »Move, Move, Move« heißt. Durch dieses direkte 
Ansprechen der Amiga-Hardware lassen sich im Vergleich zu den durch zig Instanzen 
laufenden Intuition-Calls extreme Geschwindigkeiten erreichen. Da man solche Dinge 
interaktiv programmieren muß (Operand ändern, Wirkung beurteilen), ist dann so 
etwas wie SEKA ideal, der einen die Assembler-Zeiten vergessen läßt. 

Sobald man allerdings komplexere Aufgaben zu lösen hat, die in Richtung Strukturie¬ 
rung und Rationalisierung der Arbeit laufen, sollte man zu einem klassischen 
Assembler greifen. Da beklage ich bei Metacomco das zwar solide, doch etwas über¬ 
holte und langsame Konzept. So bleibt also für mich DEVPAC als Alternative übrig. 

Im Buch schildere ich für die ersten Listings die Unterschiede, die Sie beachten müs¬ 
sen, wenn Sie mit anderen Assemblern arbeiten. Alle weiteren Listings sind dann mit 
dem HiSoft-Assembler geschrieben worden. 
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Kapitel 2 


Aufbau eines Computers 

Register 

Stapel 
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2.1 Das Computermodell 

In diesem Kapitel müssen wir uns etwas mit dem Aufbau und der Funktion eines Com¬ 
puters beschäftigen. Wie das System elektrisch funktioniert, ist dabei aber völlig 
uninteressant. Für die Programmierung reicht immer ein sogenanntes Modell. Sie müs¬ 
sen wissen, was CPU, RAM, ROM und Bus bedeuten und leisten. Innerhalb der CPU 
interessiert dann ganz besonders das Registermodell. 

Sie sind in der Situation eines angehenden Autofahrers. Ich erkläre Ihnen jetzt, welchen 
Sinn Lenkrad, Kupplung, Gaspedal und Bremse haben. 



Bild 2.1: Modell eines Computers 


Bild 2.1 zeigt das Modell eines Computers ziemlich vereinfacht. Der wichtigste Bau¬ 
stein ist die CPU (Central Processing Unit) oder der Prozessor, also der 68000. Er ist 
für die gesamte Ablaufsteuerung verantwortlich, er kann rechnen, entscheiden und ver¬ 
gleichen. Von allein tut er allerdings nicht viel, er braucht dafür ein Programm. 

Der zweite große Baustein ist der Speicher, unterteilt in die Teile RAM und ROM. 
RAM heißt historisch Random Access Memory, also Speicher mit wahlfreiem Zugriff 
(man kann direkt auf jede Speicher stelle zugreifen, und nicht wie zum Beispiel beim 
Bandspeicher nur seriell), nur diese Eigenschaft hat ein ROM auch. Der große Unter¬ 
schied: Beim RAM ist Lesen und Schreiben möglich, beim ROM (Read Only Memory) 
nur Lesen. Noch ein Unterschied: Der RAM-Inhalt ist verloren, wenn Sie den Compu¬ 
ter ausschalten, der ROM-Inhalt ist permanent vorhanden. 
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Unsere Programme werden immer im RAM liegen, wir werden aber den ROM (so Sie 
einen Amiga mit Kickstart-ROM haben) kräftig nutzen. Um eine Speicherstelle im 
RAM oder ROM ansprechen zu können, muß die CPU diese Speicherstelle adres¬ 
sieren. Diese Adressen laufen über den Adreßbus. 

Der Bus ist nichts weiter als eine Menge von Leitungen, über die alle Teilnehmer 
parallel geschaltet sind. Der Ausdruck Bus kommt daher, weil bildlich gesehen eine 
Information (zum Beispiel Adresse) an der Haltestelle CPU einsteigt, auf dem Bus 
fährt und dann an der Haltestelle RAM (oder ROM) aussteigt. Sinngemäß laufen die 
Daten (was in die adressierten Bytes hinein soll/aus ihnen gelesen wird) über den 
Datenbus. 

Der Speicher selbst besteht aus vielen gleichartigen Chips. Diese haben alle den glei¬ 
chen kleinen Adreßbereich, aber auch einen Eingang (Chip Select), über den man 
einen Chip anwählen kann. Deshalb muß eine logische Adresse in eine physikalische 
Adresse umgesetzt werden. Dies macht ein sogenannter Adreßdekoder oder - wie 
beim Amiga - eine leistungsfähigere Version davon, die sogenannter MMU (Memory 
Management Unit). 

Für uns ist wichtig zu wissen, daß ein Zugriff auf geschützte Bereiche oder illegale 
Adressen mit einem »Bus-Error« (Guru-Meldung) bestraft wird. 


2.2 Fetch & Execute 

Generell läuft ein Programm in einem Computer nach der Methode »Fetch and Exe¬ 
cute«, wie die Amerikaner so schön prägnant sagen. Auf deutsch heißt das »Holen und 
Ausführen«. Die CPU holt sich aus dem Speicher einen Befehl und führt ihn aus. 
Danach holt sie sich automatisch den nächsten Befehl und führt diesen aus, usw., usw. 
Natürlich muß im Speicher etwas stehen, das die CPU holen und ausführen kann, und 
das nennt man dann Programm. 


2.3 Programme sind nur Bytefolgen 

Ein Programm ist nichts weiter als eine Folge von Bytes, die irgendwo im RAM oder 
ROM steht. Natürlich kann die CPU nicht wissen, wo das Programm im Speicher steht. 
Deshalb wird sie beim Start (Reset) per Hardware-Vorgabe sozusagen mit der Nase 
auf eine Anfangsposition gestoßen. Ab diesem Augenblick holt sich die CPU immer 
ein Wort (das sind 2 Byte nebeneinander, also 16 Bit) aus dem Speicher und dekodiert 
dieses Wort. Dabei kommt dann (hoffentlich) ein Befehl für die CPU heraus. Diesen 
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Befehl arbeitet sie ab und holt dann das nächste Wort. Zu einem Befehl können Daten 
gehören. Beim Addierbefehl zum Beispiel muß die CPU wissen, was addiert werden 
soll. Wieviel Datenwörter zu einem Befehl gehören, ist auch im ersten Wort (dem 
Befehlswort) kodiert. 

Der gesamte Speicher ist Byte für Byte von Null bis zum Ende durchnumeriert; diese 
Nummern der Speicherplätze nennt man Adressen. Die CPU arbeitet immer nur mit 
diesen Adressen und führt dazu intern einen Zähler, der immer auf die aktuelle 
Adresse zeigt, bei der sie gerade ist. Diesen Zähler nennt man »Program Counter«, 
kurz PC. 

Hier ein Beispiel: 


Adresse (PC) 

Befehl 

Daten 

1000 

Lösche 

Wort 

1004 

Addiere 

Operand 1, Operand 2 

1010 

Return 


1012 




Das »Listing« zeigt schematisch ein Programm, das bei Adresse 1000 beginnt. Um das 
Programm zu starten, muß man nur den PC auf 1000 setzen, und schon läuft es. 
Befehl 1 belegt die Adressen 1000 und 1001. Er hat in diesem Beispiel ein Datenwort 
auf Adresse 1002 und 1003. Die CPU arbeitet diesen Befehl ab und stellt dann den PC 
auf Adresse 1004. Zu Befehl 2 (auf 1004 und 1005) gehören zwei Datenwörter (1006- 
1009), folglich muß Befehl 3 bei Adresse 1010 starten. 

Der 68000 kennt Befehle ohne Daten, die sind dann ein Wort lang, aber auch solche 
mit bis zu vier Datenwörter. Das heißt, beim 68000 kann ein einziger Befehl mit seinen 
Daten bis zu 10 Byte (5 Wörter) belegen. Wie Sie aus diesem Schema ersehen können, 
muß jeder Befehl auf einer geraden Adresse (Wortgrenze) beginnen, andernfalls pas¬ 
siert Übles. 

Nun fragen Sie, wie das kommt. Ganz einfach: Sie können (und müssen) den PC verän¬ 
dern. Wenn nämlich ein Programm nicht nur einfach Befehl für Befehl abläuft, Sie also 
zum Beispiel ein GOTO benötigen, dann heißt das in Assembler zuerst einmal »GOTO 
Adresse«. Praktisch heißt das aber für die CPU »Setze PC = Adresse«. Wenn Sie da 
eine ungerade Adresse angeben, stürzt leider Ihr Programm ab. 


In der Praxis tritt dieser Fehler auf, wenn Sie im Programm Daten definieren. Wenn 
Sie zum Beispiel den Text »Franz Meier« drucken wollen, müssen Sie irgendwo im 
Speicher eine Bytefolge mit den ASCII-Codes dieser Zeichen laden. Folgt dann der 
Text »8000 München«, und Sie wollen diesen Text einmal allein drucken, dann sollten 
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Sie wissen, wie lang »Franz Meier« ist. Um diese Abzählerei zu ersparen, haben gute 
Assembler einen Befehl (EVEN oder CNOP), der Texte (oder Daten allgemein) auf 
eine gerade Adresse justiert. Ist die Adresse sowieso gerade, passiert nichts. Ein 
»Even« zu viel schadet also nichts, eines zu wenig dagegen sehr. 

So informiert werden Sie also nie wieder vor einem Text den EVEN-Befehl (oder 
Gleichartiges) vergessen, wie das die anderen Anfänger tun, oder? 


2.4 User- und Supervisor-Modus 

Der 68000 kennt zwei Betriebsarten mit den Bezeichnungen User-Modus und Super¬ 
visor-Modus, frei übersetzt: Anwender und Boß. 

Im Supervisor-Modus laufen Kernroutinen des Betriebssystems. Unsere Programme 
(und Anwenderprogramme überhaupt) werden im allgemeinen im User-Modus ablau¬ 
fen. Für Sie ist wichtig zu wissen, daß es einige 68000-Befehle gibt, die nur im Super¬ 
visor-Modus erlaubt sind. Diese in den Manuals als privilegiert bezeichneten Befehle 
dürfen Sie nicht anwenden, ohne vorher in den Supervisor-Modus umgeschaltet zu 
haben. Andernfalls wird Ihr Programm mit einer Guru-Meldung aussteigen. Das 
Betriebssystem des Amiga, speziell der Multitasking-Kern, reagiert sehr empfindlich 
auf Eingriffe von außen. Sie sollten deshalb den Supervisor-Modus meiden. Ein Manko 
ist das praktisch nicht, denn für spezielle Eigenschaften des 68000, die nur im Super¬ 
visor-Modus zugänglich sind, stellt Ihnen das Betriebssystem Routinen zur Verfügung, 
die Sie problemloser benutzen können. 


2.5 Das hexadezimale Zahlensystem 

Das hexadezimale Zahlensystem ist in Assembler üblich (und sehr vorteilhaft), machen 
Sie sich bitte gegebenenfalls mit diesem Zahlensystem vertraut. Hier ein Schnellkurs: 

Die Basis ist nicht 10, wie im lOer-System, sondern 16. Für die nun fehlenden »Ziffern« 
von 10 bis 15 schreibt man A bis F. In dezimal sagt man für die Zahl 345 auch 5 Einer 
plus 4 Zehner plus 3 Hunderter. In hex ist die Basis 16. 

Die Folge wäre also nicht 1,10, 100,1000 sondern 1,16, 256,4096. 

Sie wissen, F hat den Wert 15. Demnach ist 

FFFF = 15 * 4096 + 15 * 256 +15 * 16 + 15 * 1 = 65535. 
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2.6 Ein BASIC-Programm zum Üben der Hexerei 

Bild 2.2 bringt ein kleines Programm in Amiga-BASIC zum Üben. 


llhile 1 

Input "Eine Zahl n ($n wenn hex) ”;A$ 

If Left$(A$,1)<>"$” Then 
Print Hex$(VAL(A$)) 

Else 

A$=Right$(A$,Len(A$)-1) 

L=Len(A$) 

XJ!=0 

For I=L To 1 Step -1 

X#=X$+Val(”&h”+Mid$(A$,I,1))*16~(L-I) 
Next I 
Print X# 

Endif 

Wend 


Bild 2.2: Hex-Dezi-Konvertierung in BASIC 


Wenn Sie eine Dezimalzahl eingeben, dann gibt sie das Programm in hex aus. Geben 
Sie eine Hex-Zahl ein (erkenntlich am $ als erstes Zeichen), erhalten Sie deren Wert in 
dezimal. 


2.7 Das duale Zahlensystem 

Sozusagen noch eine Stufe tiefer (noch näher am Computer) ist das duale Zahlen¬ 
system. Hier ist die Basis 2, womit in diesem System nur die Ziffern 0 und 1 erlaubt 
sind. Am einfachsten kann man eine Dualzahl in dezimal umrechnen, indem man sich 
die Wertigkeit darüber schreibt. Hier ein Beispiel: 

Dezimale Wertigkeit: 32 16 8 4 2 1 

Dualzahl: 10 110 1 

Das Ergebnis wäre dann 32+8 + 4 + 1 = 45 
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Die Verbindung zum hexadezimalen Zahlensystem ist recht einfach zu erledigen. Neh¬ 
men wir an, wir hätten diese Dualzahl: 

1010 0101 

Sie sehen schon, ich habe sie in Vierergruppen geteilt. Lege ich wieder die Wertigkeit 
darüber, sieht das so aus: 

8 4 2 1 8 4 2 1 

1010 0101 

Das ergibt (von links) dezimal 10 und 5. In hex schreibt man für 10 aber A, also hieße 
die Zahl in hex A5. Auch hier wieder mit Bild 2.3 ein Amiga-BASIC-Programm zum 
Üben von Dualzahlen, auch Binärzahlen genannt: 


WHILE 1 

INPUT "Eine Zahl n (%n wenn binär) a$ 
IF LEFT$(a$,1) <> THEN 
x#=VAL(a$) 

F0R 1=15 T0 0 STEP -1 
PRINT SGN(x£ AND 2'i); 

NEXT : PRINT 
ELSE 

a$=RIGHT$(a$,LEN(a$)-1) 

l=LEN(a$): x^=0 

F0R 1=1 T0 1 STEP -1 

xfl=x55+VAL(”&h ,, +MID$(a$,i,1 ))*2“(l-i) 
NEXT 

PRINT x% 

END IF 
WEND 


Bild 2.3: Umrechnung von binär in dezimal und zurück 


Wenn Sie eine Dezimalzahl eingeben, dann gibt sie das Programm in binär aus. Geben 
Sie eine Binärzahl ein (erkenntlich am % als erstes Zeichen), erhalten Sie deren Wert 
in dezimal. Das Zeichen Prozent (%) ist in Assembler der Präfix für Dualzahlen. 
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2.8 Stack: Funktion und Aufgaben 

Das kürzeste Programm, das Sie für den Amiga schreiben können, heißt in Assembler: 
CLR -(SP) 

und schon haben Sie den Stack benutzt. SP (oder Al, was dasselbe ist) werden Sie am 
häufigsten in jedem Programm finden; ein Grund, uns auch das Ding genauer anzu¬ 
sehen. Der Stack ist ein Speicher (ein Stück RAM) mit besonderen Eigenschaften. Man 
nennt ihn auch LIFO für »Last In, First Out« oder Stapelspeicher. Sie packen Daten 
auf den Stack, indem Sie etwas auf den Stapel tun. Sie können immer nur von oben 
(vom »Top of Stack«) etwas wegnehmen. Das heißt, wenn Sie die Daten A, B und C in 
die Reihenfolge auf den Stack packen, können Sie sie nur in der Folge C, B, A zurück¬ 
lesen. Der Trick ist nun, daß die CPU tatsächlich niemals die Daten vom Stack nimmt, 
sondern nur die Daten woandershin kopiert. Gesteuert wird dieses durch den soge¬ 
nannten Stapelzeiger, neudeutsch Stackpointer oder kurz SP. Noch eine Vorbemer¬ 
kung: Der Stack wächst von oben (den hohen Adressen) nach unten (zu den niedrigen 
Adressen hin). Die Anweisung »Packe A auf den Stack« bewirkt zwei Schritte: 

1. Erniedrige SP 

2. Kopiere A in den Speicherbereich, auf den SP nun zeigt 


10 rem 

10 


20 


110 

20 gosub 100 

30 rem 




-► 



40 end 


-► 

30 


30 


, 100 prlnt 

110 return 













Bild 2.4: Sinn des Stacks am Beispiel BASIC 


Die Umkehr, nämlich hole A vom Stack, hat zur Folge: 

1. Kopiere Daten, auf die SP zeigt, nach A 

2. Erhöhe SP 

Was das unter anderem für einen Sinn hat, soll Bild 2.4 zeigen. Es geht um Unter¬ 
programme, hier am Beispiel von BASIC. Sie können sich aber auch die Zeilen- 
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nummern als Adressen vorstellen. Rechts ist immer ein Stück des Stacks, daneben der 
Stackpointer gezeichnet. Der Befehl »GOSUB 100« bewirkt dreierlei: 

1. Erniedrige SP 

2. Packe die nächste Zeilennummer (hier 30) auf den Stack (auf die Speicherstelle, auf 
die jetzt SP zeigt) 

3. Springe zur Zeile 100 

Das Return in Zeile 110 hat zur Folge: 

1. Hole Zeilennummer, auf die SP zeigt 

2. Erhöhe SP 

3. Springe zur Zeile 30 

Nun fragen Sie vielleicht, warum SP vom GOSUB erniedrigt und vom RETURN 
erhöht wird? Nun, schauen Sie auf Bild 2.5. Hier ruft das Unterprogramm ein weiteres 
Unterprogramm auf. Jetzt stehen nach Zeile 110 zwei Zeilennummern (genau Return- 
Adressen) auf dem Stack. Das Return von Zeile 210 stellt den SP auf Zeile 30 und 
springt dann zu 120, das Return in Zeile 120 stellt den SP wieder zurück und springt 
dann zu Zeile 30. Der SP steht wieder auf seinem Ausgangswert, »we are home «. 


10 rem 
20 gosub 100 
30 rem 
40 end 
100 print 
1 10 gosub 200 
120 return 
200 print 
210 return 


10 20 110 210 120 









-► 



-► 

30 


30 

•4 

30 


30 





120 


120 


120 


Bild 2.5: Stack im Fall »Unterprogramm ruft Unterprogramm« 


Langer Rede kurzer Sinn, mit dem Stackmechanismus können Unterprogramme belie¬ 
big tief geschachtelt werden. Jedes Return erhöht den SP wieder und so hangelt man 
sich dann zurück. Aber Achtung, was passiert hier? 

10 GOSUB 20 
20 GOSUB 10 
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Da jedes GOSUB den SP erniedrigt, aber das Gegenstück, nämlich das RETURN 
fehlt, wächst der Stack nach unten. Er wird dann recht bald in Ihren Programm-Code 
laufen und den mit Return-Adressen überschreiben. Ergebnis: Totaler Crash, auch in 
BASIC. Probieren Sie es einmal. Die zweite Anwendung für den Stack ist die 
Parameterübergabe an Unterprogramme. Prinzipiell läuft das so: Es gibt in Assembler 
(nicht in BASIC) die Befehle »Packe Daten auf den Stack« und »Hole Daten vom 
Stack«. (Sie wissen, jeder Befehl impliziert ein Verändern des Stackpointers.) Da kann 
ich dann sinngemäß schreiben: 

10 A auf den Stack 
20 B auf den Stack 

30 GOSUB 100 (Return-Adresse auf Stack) 
und dann im Unterprogramm: 

100 Hole Return-Adresse vom Stack (und merke sie) 

110 Hole B vom Stack 

120 Hole A vom Stack 

130 Rechne mit A und B 

140 Springe zur Return-Adresse 

Was aber, wenn Ihr Unterprogramm mit Return enden soll? Dann schreibt man: 

1. Return-Adresse auf den Stack 

2. Daten auf den Stack 

3. GOTO Unterprogramm 

Im Unterprogramm: 

1. Daten vom Stack 

2. Mit Daten arbeiten 

3. RETURN 

Wie schon gesagt: Es gibt in Assembler keinen PRINT-Befehl, sondern nur die Mög¬ 
lichkeit, Bytes in einen Speicherbereich zu schreiben, der (vom Video-Kontroller) auf 
dem Bildschirm abgebildet wird. Überhaupt heißt Assembler-Programmierung primär, 
Daten von einer Adresse auf eine andere Adresse zu bewegen. Auch die Peripherie- 
Geräte (Tastatur, Floppy usw.) liegen beim Amiga innerhalb des Adreßbereichs (man 
nennt das »memory mapped«). Die Geräte werden angesprochen, indem man 
bestimmte Daten in diese Adressen schreibt oder von ihnen liest. 

Praktisch werden wir zwar die Hardware kaum so ansprechen, sondern die Parameter 
in Datenstrukturen eintragen und dann System-Routinen aufrufen, aber auch diese 
Datenstrukturen müssen wir adressieren. 
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Sie sehen also schon, die Adressierung als solche ist ganz wesentlich. Man kann eine 
Adresse auf sehr viele unterschiedliche Arten ansprechen, ein Beispiel hatten wir schon 
mit dem SP. Ich kann da sagen, stelle den SP auf die Adresse 4711. Ich kann aber auch 
sagen, hole Daten von der Adresse, auf die SP gerade zeigt (ohne zu wissen, wohin er 
zeigt). 

Das waren schon zwei Adressierungsarten. Insgesamt kennt der 68000 aber 12, und mit 
diesen 12 Adressierungsarten werden wir uns im nächsten Kapitel beschäftigen. Sie sind 
sozusagen der Schlüssel zum 68000. 
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Bisher hatten wir gelernt, daß Daten im RAM oder ROM stehen. Daneben gibt es aber 
einen ganz speziellen RAM, der ein Teil der CPU ist. Dieser Speicherbereich besteht 
aus Gruppen von je 32 Bit, und jede dieser Gruppen nennt man Register. 


3.1 Tempo durch Register 


31 15 7 0 



Daten- 

Register 



AO 


AI 


A2 

Adreß- 

A3 

Register 

A4 


A5 


A6 


A7 

User Stack-Pointer 

A7' 

Supervisor-SP 

PC 

Program Counter 

SR 

Status-Register 


Bild 3.1: Das Registermodell des 68000 


Die Register werden nicht über Adressen sondern über Namen angesprochen. Der 
Vorteil von Registern im Vergleich zum übrigen Speicher ist, daß sich die Register auf 
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demselben Chip wie die CPU befinden, und die CPU den Zugriff auf diese Register 
durch spezielle Befehle unterstützt. 

Natürlich entfällt auch der Umweg über die MMU und den Bus. Damit sind Register¬ 
operationen wesentlich schneller als Zugriffe auf den Hauptspeicher und bieten (wegen 
der speziellen Befehle) einiges mehr an Komfort. 


3.2 Das Registermodell des 68000 

So gesehen ist eine CPU mit vielen Registern besser, als eine solche mit wenigen. Der 
68000 hat viele Register, nämlich: 

acht Datenregister, sieben Adreßregister, zwei Stackpointer, einen Programmzähler 
(PC) sowie ein Statusregister. Bild 3.1 zeigt den kompletten Registersatz des 68000. 
Wie Sie sehen, sind die Register D0-D7 und A0-A7 plus PC je 32 Bit breit. Im Bild 
sind die Bits von 0 bis 31 numeriert. Das sind 4 Byte. 


3.3 Datentypen 

In einem Byte zählt man die Bits von 0 (niederwertiges Bit) bis 7 (höchstwertiges Bit). 
Zwei Byte (16 Bit) nennt man Wort. Dessen Bits zählen von 0 bis 15. Zwei Worte 
(32 Bit) sind ein Langwort. Man spricht auch von den Datentypen Bit, Byte, Wort und 
Langwort. Die größten darstellbaren Zahlen in Abhängigkeit vom Typ zeigt Bild 3.2. 


Bit = 2*1-1 = 1 
Byte = 2*8-1 = 255 
Wort = 2*16-1 = 65535 
Langwort = 2*32-1 = 4,294,967,299 


Bild 3.2: Die Datentypen und damit darstellbare Werte 


Nun verstehen Sie auch die senkrechten Trennlinien in Bild 3.1. In den Datenregistern 
kann man Bytes, Worte und Langworte ablegen. Bei den Adreßregistern ist der Typ 
Byte nicht möglich. Die Stackpointer (A7) sind immer »long«. 
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Außerdem gibt es noch den Type BCD (Binary Coded Decimal). In diesem Fall wird 
ein Byte in 2 Halbbyte (nennt man Nibble) geteilt. Mit den 4 Bit eines Nibbles kann 
man nun die Zahlen 0-15 darstellen. Auf 10 bis 15 wird dabei aber verzichtet, gültig 
sind in der BCD-Darstellung nur die Werte von 0 bis 9. Damit kann man in einem 
»BCD-Byte« immer zwei Zehnerstellen darstellen. Ein Wort reicht also für eine 4-stel- 
lige Dezimalzahl. Braucht man mehr Stellen, muß man die entsprechende Anzahl Bytes 
sozusagen nebeneinanderlegen. Nun gibt es eine Unmenge kluger Algorithmen zum 
Thema BCD-Rechnerei. Für die armen Leute ohne 68000 sind die sehr wichtig. Wir 
können darauf verzichten, weil im 68000 die passenden Befehle dafür schon eingebaut 
sind. 

Typangabe ist die erste Bürgerpflicht 

Solange Sie nur mit Registern arbeiten, spielt die Größe (fast) keine Rolle, wenn Sie 
aber ein mit allen 32 Bit gefülltes Register in den RAM kopieren, belegt es da 4 Byte. 
Das ist ziemlich unpraktisch, weil Sie sehr oft mit Bytes oder Worten auskommen 
könnten, also auch mit weniger Speicher. Deshalb gibt es beim 68000 die Möglichkeit - 
genauer: die Pflicht - bei jeder Operation, die Daten bewegt, anzugeben, welcher Typ 
dabei gilt. 

Ein Beispiel: Der Datentransfer geschieht mit dem Befehl MOVE und zwar mit der 
Syntax »MOVE Quelle,Ziel«. Tatsächlich bewegt der Befehl MOVE die Daten nicht, 
sondern kopiert sie, er kopiert von der Quelle auf das Ziel. 

Um die Daten im Register D3 auf die Adresse 4711 zu kopieren, schreibt man: 

MOVE.B D3.4711 oder 
move.w D3.4711 oder 
MOVE.L D3,47711 

Im Fall .B wird ein Byte kopiert, also die Bits 0-7 von D3, im Fall .W ist es ein Wort 
(Bit 0-15) bzw. im Fall .L das ganze Register. Im Hauptspeicher (hier ab Adresse 
4711) werden dann entsprechend 1, 2 oder 4 Byte belegt. In welcher Reihenfolge dabei 
die verschiedenen Datentypen im RAM stehen, sollten Sie wissen, nämlich so, wie man 
sich das denkt. Steht beispielsweise in DO das Wort $AABB und wird DO mit einem 
MOVE.W-Befehl auf die Adresse 1000 kopiert, so steht $AA in 1000 und $BB in 1001. 
Nur den Kollegen aus der 8-Bit-Ecke und denen, die vom IBM-PC kommen, sei noch 
einmal deutlich gesagt: Der 68000 speichert Daten in der richtigen Reihenfolge und 
nicht wie die »8-Bitter/8088er« die Bytes eines Wortes vertauschen! 

Wegen dieser freien Auswahl des Datentyps haben Sie leider auch die Pflicht, ihn bei 
den meisten Befehlen anzugeben. Fehlt der Typ, nehmen die meisten Assembler den 
Typ Wort an. Um auf die Register zurückzukommen: Der Hauptunterschied zwischen 




Befehle 47 


Daten- und Adreßregistern ist, daß bei letzteren die Typen Bit und Byte nicht erlaubt 
sind. 

Ansonsten können Sie durchaus auch Daten in Adreßregistern speichern und Adressen 
in Datenregistern. Letzteres werden wir beim Amiga häufig antreffen, da viele Routi¬ 
nen auch Adressen in Datenregistern erwarten. 

Das Statusregister hat einen ganz besonderen Zweck. Damit wird in Assembler 
IF-THEN realisiert; ich komme noch (sehr ausführlich) darauf zurück. 


3.4 Befehle 

Wieviel Assemblerbefehle es gibt, ist gar nicht so einfach zu sagen. Das liegt daran, daß 
ein Befehl je nach Adressierungsart (und weiteren Varianten) ganz unterschiedliche 
Wirkung zeigt. Beginnen wir mit dem Befehlsaufbau. Ein Befehl kann haben: keinen 
Operanden oder einen oder zwei. Die Operanden können im Befehlswort selbst ent¬ 
halten sein oder belegen bis zu vier weitere Worte, die dem Befehlswort unmittelbar 
folgen. Darüber brauchen Sie sich aber vorerst wenig Sorgen zu machen. Im Quelltext 
schreiben Sie den Befehl und die Operanden einfach hin, wieviel Worte das dann wer¬ 
den, ist Sache des Assemblers. 

Ein Beispiel für einen Befehl mit keinem Operanden ist RTS (Return from Sub¬ 
routine), was dem RETURN in BASIC entspricht. Einen Operanden hätte der Befehl 
»CLR DO«. Das heißt Clear (Lösche (fülle mit Nullbits)) den Operanden DO (das 
Register DO). Ein Beispiel für einen Befehl mit zwei Operanden: 

MOVE.L A3,A4 

Damit wird das Langwort im Register A3 nach A4 kopiert. 


3.5 Sinn und Zweck der Adressierungsarten 

Eine CPU ist um so besser, je mehr sinnvolle Adressierungsarten sie hat, und hier 
glänzt der 68000 ganz besonders. Dieser Luxus macht die Sache zwar auch etwas 
schwierig, denn das alles will gelernt sein, und hier liegt auch die Barriere für die Kol¬ 
legen, die es gewohnt sind, mit den wenigen (und primitiven) Adressierungsarten der 
»8-Bitter« auszukommen. Andererseits, wenn Sie das Thema beherrschen, dann 
beherrschen Sie auch den 68000. 
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Um zu zeigen, worum es geht: Im Beispiel von eben 
MOVE.L A3,A4 

wurde der Inhalt des Registers A3 nach A4 kopiert. Schreibe ich hingegen 
MOVE.L (A3),(A4) 

heißt das, daß die Inhalte der Register als Adressen zu sehen sind. Hat zum Beispiel im 
Moment des Befehls A3 den Wert 4711 und A4 ist gleich 5711, dann wird ein Langwort 
von Adresse 4711 (da startend und Byte für Byte) nach Adresse 5711 kopiert. 

Wir haben nun schon zwei Adressierungsarten kennengelernt, nämlich »Register 
direkt« (MOVE.L A3,A4) und »Register indirekt« (MOVE.L (A3),(A4)). 

Um noch eine Stufe höher zu gehen, schauen wir uns »Adreß-Register indirekt mit 
Postinkrement« an. Das sieht zum Beispiel so aus: 

MOVE.W (A0)+,D0 

Im Klartext: Kopiere das Wort, auf das AO zeigt nach DO und erhöhe danach (post) AO 
um 2. Zwei deshalb, weil ein Wort 2 Byte hat. Bitte merken: Der 68000 ist eine Byte- 
Maschine, jede Adresse zeigt auf 1 Byte. »MOVE. (A0) + ,D0« würde ein Langwort 
kopieren und danach AO um 4 inkrementieren. Die nächste Variante wäre 
»Adreßregister indirekt mit Predekrement«. Ein Beispiel: 

MOVE.L D0,-(A5) 

In diesem Fall wird vorab (pre) 4 (Langwort hat 4 Byte) von A5 subtrahiert, dann wird 
DO dahin kopiert, wohin A5 nun zeigt. Das hatten wir doch schon mal? Sie erinnern 
sich an den Stack aus Kapitel 2! Daten werden auf den Stack gebracht, indem man den 
Stackpointer (SP) erniedrigt und dann die Daten auf die Adresse kopiert, auf die SP 
zeigt. 

Daten werden vom Stack geholt, indem man sie von der Adresse holt, auf die SP zeigt 
und dann SP erhöht. Das wäre dann unser schon bekanntes 

MOVE.L (A5)+,D0 

Tatsächlich kann man so jedes Adreßregister als Stackpointer einsetzen. 

Die Besonderheit des Registers Al, das auch in vielen Assemblern SP heißt, liegt darin, 
daß dieses Register auch durch Befehle wie JSR (Jump to Subroutine) und RTS 
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(Return) angesprochen wird. Man kann das aber auch mit anderen Registern erledigen, 
zum Beispiel kann man anstatt RTS auch schreiben 

MOVE.L (A7)+,A0 
JMP (A0) 

Der MOVE-Befehl holt die Return-Adresse vom Stack in das Register AO, danach er¬ 
folgt ein Sprung (Jump) zur Adresse, auf die AO nun zeigt. Sie sagen, warum der Um¬ 
stand, ein RTS ist doch viel einfacher! Recht haben Sie, aber trotzdem werden Sie diese 
Lösung in Programmen sehen, die zum Beispiel von BASIC aus aufgerufen werden und 
zwar so: 


MOVE.L (A7)+, 4711 
viele andere Befehle 

MOVE.L 4711,A0 

JMP (A0) 

Mit dem ersten MOVE-Befehl wird die Return-Adresse auf einen sicheren Platz in den 
RAM geholt (4711 ist hier nur symbolisch gemeint). Man sagt auch, die Return- 
Adresse wird gerettet. Wenn irgend etwas schief geht, kann ich dann immer noch mit 
Hilfe dieser Adresse zu BASIC zurück, egal wo der Stackpointer gerade steht. Nach 
diesem Ausflug in die Praxis, der einmal andeuten sollte, wofür man verschiedenartige 
Adressierungsarten braucht, wieder zurück zur Theorie. Bild 3.3 zeigt eine Liste aller 
Adressierungsarten und noch etwas mehr. 

Zuerst notieren Sie bitte nur, daß eine Adresse aus mehreren Angaben zusammenge¬ 
setzt sein kann. Die CPU errechnet daraus die endgültige Adresse, auch effektive 
Adresse (ea) genannt. Wie Sie schon wissen, belegt das Befehlswort 16 Bit. Die vier 
höherwertigsten davon beschreiben den Befehl an sich. Die übrigen 12 teilen sich in 
zwei Gruppen von 6 Bit, die die Adressierungsart von Ziel und Quelle (so vorhanden) 
angeben. Die 6 Bit je Operand wiederum teilen sich in zwei Gruppen von 3 Bit, die eine 
Gruppe heißt Modus, die zweite Register. Mit 3 Bit sind die Zahlen 0 bis 7 darstellbar, 
deshalb gibt es auch die Register AO—A7 bzw. DO—D7. Es gibt aber mehr als sieben 
Adressierungsarten, was damit erreicht wird, daß nicht bei jedem Adressiermodus alle 
Register erlaubt sind. Überhaupt, und das ist wichtig zu wissen, sind bestimmte 
Adressierungsarten nicht für den Quell- und (gleichzeitig) den Zieloperanden erlaubt 
und außerdem auch nicht für jeden Befehl. Zu diesem Thema finden Sie mehr Infor¬ 
mationen im Anhang. Im Bild 3.3 sind Modus und Register als Binärzahlen dargestellt. 
Steht dort »An« oder »Dn«, können Sie dafür %000 bis %111 (dezimal 0 bis 7) ein- 
setzen. 
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Adressierungsart 

Kürzel 

Modus 

Register 

Datenregister direkt 

Dn 

000 

Dn 

Adreßregister direkt 

An 

001 

An 

Adreßregister indirekt (ARI) 

(An) 

010 

An 

ARI mit Postinkrement 

(An) + 

011 

An 

ARI mit Predekrement 

-(An) 

100 

An 

ARI mit Adreßdistanz 

dl6(An) 

101 

An 

wie vor plus Index 

d8(An,Rn) 

110 

An 

Absolut kurz 

$XXXX 

111 

000 

Absolut lang 

SXXXXXXXX 

111 

001 

PC-Relativ mit Adr.-Distanz 

dl6(PC) 

111 

010 

PC-Relativ mit Adr.-Distanz 




plus Index 

d8(PC,Rn) 

111 

011 

Konstante, Statusregister 

#, SR,CCR 

111 

100 


Bild 3.3: Liste aller Adressierungsaiten 


3.6 Adressierungsarten im Detail 

Wie Sie nun ganz richtig erkannt haben, geht aus dem Befehlswort und den darin 
codierten Adressierungsarten auch hervor, wie viele Worte der Befehl im Speicher be¬ 
legt. Register-Register-Adressierung (zum Beispiel MO VE A0,A1) kommt mit einem 
Wort aus, geben Sie hingegen eine absolute Adresse an, kommt mindestens noch ein 
Wort hinzu. Das heißt, in den 16 Bit des Befehlswortes stecken alle Informationen, die 
die CPU braucht, um den Befehl zu decodieren. 

So ähnlich arbeiten auch sogenannte Disassembler, das sind Programme, die aus dem 
Maschinencode wieder den Klartext der Assembler-Sprache bilden. Solange Sie aber 
ein solches Programm nicht schreiben wollen, können (und sollten) Ihnen diese Bit¬ 
muster herzlich egal sein. Es gibt viele Hacker, die den Hex-Code (die Maschinen¬ 
sprache) der »8-Bitter« lesen können wie andere Leute die Zeitung. Diese Übung ist ' 
beim 68000 aussichtslos, also sehen wir die Sache von der praktischen Anwendung her, 
nämlich alle Adressierungsarten an je einem Beispiel. 


3.6.1 Register direkt 

Eines der Register wird direkt angesprochen. Beispiel: 


CLR D0 


(Lösche D0). 
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3.6.2 Adreßregister indirekt (ARI) 

Der Inhalt des Registers ist eine Adresse, auf diese wirkt die Operation. Beispiel: 

MOVE (A0),D0. ARI bitte merken! 

Das Wort, dessen Adresse in AO steht, wird nach DO kopiert. 


3.6.3 ARI mit Postinkrement 

Wirkt wie ARI, nur wird anschließend das Register inkrementiert. Beispiele: 


MOVE.B (A0)+,D0 
MOVE.W (A0)+,D0 
MOVE.L (A0)+,D0 


;Kopie,dann A0=A0+1 
;Kopie,dann A0=A0+2 
;Kopie,dann A0=A0+4 


3.6.4 ARI mit Predekrement 

Wie oben, nur wird das Register vor der Operation erniedrigt. Beispiel: 
MOVE -(A0), D0 ;A0=A0-2, dann Kopie 


3.6.5 ARI mit Adreßdistanz 

Die effektive Adresse ist die Summe von Inhalt des Registers plus Adreßdistanz. Die 
Adreßdistanz ist eine vorzeichenbehaftete 16-Bit-Zahl im Bereich -32668.32767. 
Beispiel: 

MOVE -100(AO), D0 

Wäre A0 = 500, würde das Wort von Adresse 400 nach DO kopiert. Diese Adressie¬ 
rungsart sollten Sie sich besonders gut merken!!! Beim Amiga werden wir sie sehr häu¬ 
fig brauchen. 

3.6.5.1 ARI mit Adreßdistanz und Index 

Nun wird es kompliziert. Zuerst: Die Adreßdistanz ist jetzt nur noch eine vorzeichen¬ 
behaftete 8-Bit-Zahl im Bereich von -128..127. Nun darf aber noch ein weiteres Regi¬ 
ster angegeben werden. Ein Beispiel: 


MOVE 100(A0,D0),4711 
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100 ist die Adreßdistanz, A0 enthält die Basisadresse, in DO steht der Index. Alle drei 
werden addiert. Die Summe ist eine Adresse, das Wort (Byte, Langwort), das da steht, 
wird ins Ziel (hier Adresse 4711) kopiert. 

Beim Index darf auch ein anderer Typ angegeben werden, also auch DO.B oder DO.L 
wären erlaubt, bei Adreßregistern als Index natürlich nur An.W und An.L (0<n<7). 
Auch der Index ist vorzeichenbehaftet, womit er im Falle Langwort im Bereich von 
2 Giga-Byte liegen muß (wenn wir die mal hätten). Dieser Befehl ist ideal für die 
Abarbeitung von Tabellen und Arrays. Oft wird dabei die Adreßdistanz nicht benötigt 
(die Laufvariable steht im Indexregister), weshalb man oft die Form von zum Beispiel 
»0(A3,D4.L)« sieht. 


3.6.6 Absolute Adressierung 
Dies ist der einfachste Fall. Beispiel: 

MOVE 4711,5713 

Das Wort von Adresse 4711/12 wird auf Adresse 5713/14 kopiert. Die CPU unter¬ 
scheidet dabei noch zwischen kurz und lang (Adreßbereich nur 64 Kbyte oder die 
vollen 16 Mbyte des 68000). Praktisch merken Sie den Unterschied kaum (die lange 
Adresse erfordert mehr Bytes in der Befehlslänge und ist etwas langsamer). 


3.6.7 Konstanten-Adressierung 

Auch wieder etwas ganz Einfaches. Um eine Konstante zu bewegen, brauchen Sie nur 
das Zeichen # vorzusetzen. Um zum Beispiel das ASCII-Zeichen A in das Register DO 
zu laden, schreiben Sie 

MOVE /65.D0 
oder move /’A’.d0 


3.6.8 PC-relative Adressierung 

Da muß ich etwas ausholen, damit Sie dieses Feature auch würdigen können. Sobald 
Sie in einem Assembler-Programm eine absolute Adresse angeben, ist das Programm 
an einen Ort im Speicher gebunden. Auch zum Beispiel »(A0)« (indirekt) ist in diesem 
Sinn absolut, denn vorher mußten Sie A0 mit einer Adresse versorgen. 

Der von Ihnen geplante Adreßbereich kann aber schon belegt sein, also muß Ihr Pro¬ 
gramm auch an einem anderen Ort laufen können. Dazu gibt es zwei Möglichkeiten. 
Erstens, das Programm ist verschiebbar (relokatibel). Dafür sorgt der Assembler, in- 
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dem er mit dem Programm eine Tabelle aller absoluten Adressen abspeichert. Der 
Lader (oder das Programm selbst oder eine Utility) kann dann diese Adressen korri¬ 
gieren, indem sie die Differenz zwischen geplanter und tatsächlicher Startadresse auf 
alle absoluten Adressen laut Tabelle addieren. Die zweite Möglichkeit ist, das Pro¬ 
gramm lageunabhängig (Position Independend) zu schreiben. In einem solchen Pro¬ 
gramm dürfen dann eben keine absoluten Adressen Vorkommen, und genau da hilft der 
68000 mit der PC-relativen Adressierung. Dabei wird die Adresse gerechnet als aktu¬ 
eller Stand des PC + Offset. Offset ist auch hier wieder auf -32768.32767 begrenzt. 
Beispiel: 


HOVE 100(PC),D0 

PC-relativ mit Adreßdistanz und Index 

Hier gilt sinngemäß das für »ARI mit Adreßdistanz und Index« Gesagte, nur daß die 
Basisadresse hier PC+ 2 ist. Beispiel: 

MOVE 100(PC,A0.W),D0 

Das wär’s vorerst an Theorie. Es fehlt zwar noch allerlei, aber das wird an passender 
Stelle anhand praktischer Beispiele erläutert. Im nächsten Kapitel kommen die ersten 
Listings. Außerdem müssen wir uns um die Bedienung von Editor, Assembler, Linker 
und Batch-Prozessor kümmern. 

Zum DOS wäre auch noch einiges zu sagen, schließlich wollen wir die Räder nicht neu 
erfinden, sondern alles, was da schon eingebaut ist, kräftig nutzen. 
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Kapitel 4 


Ganz schnell zur Praxis 


Hier geht es um Exec und DOS, 
die Bedienung des Assemblers 
und natürlich die ersten Listings. 
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4.1 Ein Schnellkurs in Sachen DOS 

Das Betriebssystem des Amiga besteht grob vereinfacht aus drei Teilen, nämlich aus 

DOS 

Intuition 

Exec 

Die Aufgabe eines jeden OS (Operating System) ist es, die Verbindung des Computers 
mit der Außenwelt herzustellen. Dinge, wie Zeichen von der Tastatur lesen, Zeichen 
auf dem Bildschirm darstellen oder Dateien von einer Diskette lesen, sind typische Auf¬ 
gaben des OS. 

Nun kann der Amiga bekanntlich wie ein Standard-Computer bedient werden (Sie tun 
das, wenn Sie im CLI sind) oder über die grafische Benutzeroberfläche »Workbench«. 
Immer noch ganz grob (genauer behandeln wir das später) kann man nun sagen: 

Standard = DOS 

Grafik = Intuition 

Bliebe noch Exec, und das ist in unserem vereinfachten Modell primär für das Multi¬ 
tasking zuständig. 

Das DOS (Disk Operating System) hat auch etwas mit Disketten zu tun, doch der 
Name untertreibt. Tatsächlich kann das DOS auch mit der Tastatur und dem Bild¬ 
schirm umgehen, ja sogar typische Amiga-Windows öffnen, den Drucker bedienen und 
einiges mehr. Weil das DOS recht einfach zu handhaben ist, werden wir uns vorerst nur 
damit beschäftigen. Schließlich müssen Sie zuerst die Assembler-Programmierung an 
sich lernen, was schon Stoff genug ist. Sie gleichzeitig noch mit den komplizierten Tei¬ 
len der Amiga-System-Software zu behelligen, verkneife ich mir deshalb (aber nur vor¬ 
erst). 

Aus Sicht des Programmierers ist das DOS eine Sammlung von Routinen (Unter¬ 
programmen), die er alle benutzen darf. Einige davon, wie zum Beispiel Laden und 
Starten eines Anwenderprogramms, sind dem »Normalverbraucher« zugänglich, alle 
nur dem Assembler-Programmierer. 

Jedes dieser Unterprogramme startet natürlich bei einer bestimmten Adresse, und 
demnach könnte man so ein Programm in der Form »JSR Adresse« aufrufen. Praktisch 
tut man das nicht, denn dann würde jede Änderung im OS dazu führen, daß sich einige 
oder alle Adressen verschieben und somit alle »alten« Programme nur noch Makulatur 
wären. 
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4.2 Aufruf von DOS-Routinen 

Um also von absoluten Adressen unabhängig zu sein, arbeiten die meisten OS nach 
diesem Schema: 

Alle Unterprogramme erhalten eine Nummer, Funktionsnummer genannt. Im OS steht 
eine Tabelle, in der notiert ist, welche Adresse zu jeder Funktionsnummer gehört. Das 
OS hat nun eine Routine, deren Adresse sich nie ändert. Das ist der Dispatcher. Um 
ein Unterprogramm aufzurufen, übergibt man dem Dispatcher die Funktionsnummer. 
Dieser berechnet danach (und mit Hilfe der Tabelle) die Adresse der Routine und ruft 
sie auf. 

Der Amiga macht das etwas raffinierter und damit zukunftssicherer. Der Nachteil der 
Standardmethode ist nämlich, daß man sehr schlecht neue Routinen hinzufügen kann 
(Tabelle steht im ROM). Beim Amiga stehen die Tabellen im ROM oder RAM oder 
auf der Diskette. Die Tabellen sind ein Teil der sogenannten Libraries (Bibliotheken). 

Libraries: Schlüssel zum Amiga 

Eine Library ist vereinfacht ausgedrückt eine Sammlung von Unterprogrammen mit 
einer zugehörigen Tabelle (je Unterprogramm ein Eintrag). Für jeden Zweck (zum 
Beispiel DOS, Intuition, Grafik) gibt es eine eigene Library. Will man eine Funktion 
einer Library benutzen, muß man die Library mit »OpenLibrary« öffnen. Diese Funk¬ 
tion gibt einen Zeiger auf den Beginn (die Startadresse) der Tabelle zurück. Um nun 
ein Unterprogramm aufrufen zu können, muß man die Startadresse der Tabelle ange¬ 
ben und ein sogenanntes Offset, das die Differenz zwischen Startadresse und zugehöri¬ 
gem Tabellenplatz ist. 

»Gemanagt« wird das Ganze vom sogenannten Library-Manager (ein Teil von Exec). 
Der Manager weiß, ob sich eine Library schon im ROM oder RAM befindet. Wenn 
nicht, versucht er, die Library von der Diskette zu laden. Klappt das nicht (Library ist 
nicht auf der Diskette oder Speicher ist schon voll), gibt er Null als Adresse zurück. 

Der Umstand hat noch einen Grund: Wir haben einen Amiga und der unterscheidet 
sich von seinen Konkurrenten auch durch sein Multitasking-System. Das heißt verein¬ 
facht (kommt auch noch genauer), daß quasi gleichzeitig verschiedene Tasks (Pro¬ 
gramme) eine Library benutzen können. Der erste Task wird die Library notfalls von 
der Diskette in den RAM laden (genauer: das Laden veranlassen). Öffnen weitere 
Tasks dieselbe Library, wird der Manager nur noch die Adresse an diese Tasks melden. 
Daraus folgt: Eine Library darf erst wieder aus dem Speicher gelöscht werden, wenn 
der letzte Task gesagt hat, daß er sie nicht mehr braucht. 
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Dafür gibt es die Funktion »CloseLibrary«. Jeder Task (also jedes Programm, das Sie 
schreiben) muß deshalb alle Libraries, die er geöffnet hat, auch wieder schließen. 
Andernfalls könnte bald der Speicher knapp werden. 


4.3 Aufbau eines Assembler-Programms 

Jedes Assembler-Programm besteht aus den Feldern Marke, Befehle, Operanden (falls 
vorhanden) und Kommentar. Flier ein Muster: 


Marke 

Befehl 

Operand(en) 

Kommentar 

Start 

clr 

d0 

[Lösche Register 


move 

d0,d1 

[Befehl mit 2 Operanden 

veiter 



;nur Marke in der Zeile 


rts 


[kein Operand 


Der Kommentar muß nicht sein, er trägt aber zur Lesbarkeit bei. Je nach Assembler 
muß er mit einem Semikolon oder Stern beginnen, bei manchen Assemblern reicht 
auch der Platz (Kommentarfeld). Steht der Kommentar allein in einer Zeile, muß »;« 
oder »*« sein. 


Die Marke (Label) wird nur in einigen Fällen gebraucht. Sie kann auch allein in einer 
Zeile stehen, sie wirkt aber immer auf die nächste Zeile mit einem Befehl. In manchen 
Assemblern muß der Marke ein Doppelpunkt folgen, aber nur dann, wenn sie im 
Markenfeld steht, nicht wenn sie angesprochen wird. 

Ausgenommen die Sonderfälle »nur Marke« oder »nur Kommentar« muß ein Befehl in 
einer Zeile stehen, und, so vorhanden, auch dessen Operand(en). Die einzelnen Felder 
müssen durch mindestens eine Leerstelle voneinander getrennt sein. Meistens benutzt 
man die Tabulatortaste (8-ter Abstand). Nehmen Sie aber einen Texteditor, der dafür 
Blanks erzeugt. 


4.4 Das erste Listing: Ausgabe eines Strings 

Nun zu unserem ersten Programm laut Bild 4.1a: 
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* A1_Met Mein 

erstes Programm !!! 

Metacomco-Version !!! 

INCLUDE 

”libraries/dos lib.i” 


XREF 

DOSBase 


XREF 

_SysBase 


XREF 

_LVOOpenLibrary 


XREF 

_LVOCloseLibrary 


XDEF 

main 


main move.l 

/dosname,a1 

;Name der DOS-Lib 

moveq 

/0,d0 

[Version egal 

move.l 

SysBase,a6 

[Basis Exec 

jsr 

_LV00penLibrary(a6) 

;D0S-Lib oeffnen 

tst.l 

d0 

[Fehler? 

beq 

fini 

;uenn Fehler, Ende 

move. 1 

d0,_DOSBase 

;Zeiger merken 

* Ausgabe-Handle ermitteln: 


move.1 

DOSBase,a6 

;DOS-Funktion rufen 

jsr 

_LV00utput(a6) 

;Hole Output-Handle 

move.1 

d0, d4 

;und in d4 merken 

* nun Text ausgeben: 


move.1 

d4, dl 

;Ausgabe-Handle 

move.1 

/string,d2 

;Addresse Text 

moveq 

/20,d3 

[Laenge Text 

move.1 

DOSBase,a6 

;Basis DOS 

jsr 

_LVOWrite(a6) 

[Funktion "Schreiben” 

* Zum Schluss immer die Lib schliessen! 

move.l 

DOSBase,a1 

[Basis der Lib 

move.1 

SysBase,a6 

[Basis Exec 

jsr 

_LVOCloseLibrary(a6) 

[Funktion "Schliessen 

fini rts 


[Return zum CLI 

* Datenbereich: 

dosname dc.b 

1 dos.library’,0 


cnop 

0,2 


string dc.b 

’Hallo lieber Leser!’ 

,10 

cnop 

0,2 


end 




Bild 4.1a: Ausgabe eines Strings (Metacomco-Assembler) 
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Zur Einführung stelle ich Ihnen nur das Listing dreimal vor, nämlich für die Assembler 
Metacomco, SEKA und DEVPAC. Alle weiteren Listings gelten für den DEVPAC- 
Assembler von HiSoft. Die Leser mit den anderen Assemblern sollten anhand der hier 
gegebenen Hinweise in der Lage sein, die Listings anzupassen. Speziell für die SEKA- 
Anwender sind die LVO-Tabellen im Anhang gedacht. Beginnen wir mit Metacomco, 
der nach der klassischen Methode arbeitet. 

Das Programm soll schlicht aber herzlich »Hallo lieber Leser« auf den Schirm schrei¬ 
ben und dann zum CLI zurückkehren. 

Vergessen wir vorerst den Overhead und betrachten das Listing ab der Zeile, die mit 
»_main« beginnt. 

Auch für das simpelste Programm müssen wir eine Library öffnen. Dazu brauchen wir 
die Funktion OpenLibrary, die selbst in der Exec-Library zu finden ist. Wir brauchen 
aber auch immer zu jeder Funktion die Basisadresse der Library, und auch die erhält 
man mit OpenLibrary. Damit sich die Katze nun nicht in den Schwanz beißt, gibt es im 
Amiga eine feste Adresse (die einzige!), und das ist die Basis von Exec. Diese Adresse 
(4) hat den symbolischen Namen _AbsExecBase oder (hier benutzt) _SysBase. 

Der Schlüssel steckt in diesen Zeilen: 

move.l _SysBase,a6 ;Basis Exec 

jsr _LV00penLibrary(a6) ;D0S-Lib oeffnen 

Im Klartext: Lade das Register a6 mit der Konstanten _SysBase. Dann springe zum 
Unterprogramm (JSR = Jump to Sub Routine), dessen Adresse sich aus der Konstan¬ 
ten _LVOOpenLibrary und dem Register a6 berechnet (Adressierungsart ARI mit Off¬ 
set, siehe Kapitel 3). 

Vorher müssen wir aber noch sagen, welche Library geöffnet werden soll. Dazu müssen 
zwei Parameter übergeben werden, nämlich der Name der Library und die Versions¬ 
nummer. Das erledigen die Zeilen 

_main move.l /dosname.al ;Nane der DOS-Lib 

moveq /f),d0 ;Version egal 

Die erste Zeile heißt: Kopiere (move) die Adresse von dosname in das Register al. Das 
Doppelkreuz ist von immenser Bedeutung. Es heißt hier nämlich »Adresse von«. Ver¬ 
gessen Sie dieses Zeichen, gibt es einen bildschönen Absturz, denn dann heißt es 
»Inhalt von«. Bleibt noch die Versionsnummer: Es kann Libraries geben, die sich nicht 
im Namen aber in der Versionsnummer unterscheiden. Nur die Version 0 gibt es nie. 
Null ist reserviert für »nehme die erste (meistens die einzig vorhandene) Version«. 
Nach dem JSR kehrt das Unterprogramm zurück, und im Register dO steht die Basis- 
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adresse der DOS-Library. Diese Adresse wird sofort in der Variablen _DOSBase ge¬ 
sichert. 

Wir haben nun die Adresse der DOS-Library ermittelt und können damit arbeiten. Um 
einen Text ausgeben zu können, müssen wir zuerst wissen, wohin der Text geschrieben 
werden soll. Das kann eine Datei sein. Im Sinn von DOS ist aber auch das aktuelle 
Ausgabegerät eine Datei mit dem speziellen Namen Output. Vom Start des Amiga her 
(und solange wir nichts ändern) ist Output der Bildschirm (genauer: das CLI-Fenster). 
Immer noch: Für DOS ist das eine Datei, ein File, und der Zugriff auf Files geschieht 
über sogenannte Handles. Normalerweise öffnet man einen File mit Open. Nur ist ja 
unser Output-File schon offen, und deshalb gibt es eine Funktion mit dem Namen 
LVOOutput, die die Handle von Output ermittelt. Genau das geschieht mit diesen 
Zeilen: 


move.l _D0SBase,a6 ;DOS-Funktion rufen 

jsr JLV00utput(a6) ;HoIe Output-Handle 

move.l d0,d4 ;und in d4 merken 

Wir rufen die DOS-Funktionen prinzipiell genauso auf wie die Exec-Funktionen. Der 
Unterschied ist nur, daß jetzt das Register a6 auf die Basis der DOS-Library 
(_DOSBase) zeigt. Auch die Konstante _LVOOutput ist woanders definiert (kommt 
noch). Wie alle Funktionen gibt auch JLVOOutput ihr Ergebnis in dO zurück. 

Da dO ein Register ist, das auch andere Funktionen benutzen, retten wir es (kopieren 
es) in das Register d4. 

Jedenfalls haben wir nun die Handle im Register d4 und können damit arbeiten. 

Um auf einen File (oder ein Gerät) zu schreiben, braucht DOS diese Parameter: 

- Handle in dl 

- Adresse, ab der die Daten zu finden sind, in d2 

- Anzahl der Daten-Bytes in d3 

Schauen wir uns nun diese Zeilen an, so finden wir alles wieder: 

move.l <14,(11 ;Ausgabe-Handle 

move.l /string,d2 ;Addresse Text 

moveq /20,d3 ;Laenge Text 

So vorbereitet, können wir die Funktion _LVOWrite aufrufen: 

move.l _D0SBase,a6 ;Basis DOS 

jsr _LV0Write(a6) ;Funktion "Schreiben” 
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Wie Sie sehen, ist das Prinzip immer dasselbe: 

move.l Basis_Adresse,a6 
jsr 0ffset(a6) 


Nach dieser Methode wird denn auch zum Schluß des Programms die DOS-Library 
wieder geschlossen. 


Im Datenbereich finden Sie nun einige Assembler-Direktiven. Wichtig ist die Assem¬ 
bler-Direktive »dc.b«. Bitte beachten Sie: Das ist eine Anweisung an den Assembler, 
kein 68000-Befehl. »de« heißt »define constant« (definiere Konstante), »dc.b« heißt 
dann Konstante vom Typ Byte. 


dosname dc.b 
enop 


’dos.library’, 0 

0,2 


string dc.b 
enop 


'Hallo lieber Leser!’,10 

0,2 


»string« ist ein Label, und die ganze Anweisung an den Assembler lautet nun: Setze ab 
(symbolischer) Adresse string die Zeichenfolge »Hallo...« ein. Ja, und »Hallo« wollen 
wir nun ausdrucken. Dazu benötigen wir einen Zeiger, der auf »Hallo« (genauer: zuerst 
auf H) zeigt. Dazu ernennen wir das Register d2. Damit d2 mit der Adresse von string 
geladen wird, schreiben wir die Zeile 

move.l /string,d2 ;Addresse Text 


Nochmals: »dc.b« heißt »definiere Konstante« und zwar hier vom Typ Byte. Im 
Operandenfeld stehen dann die Bytes. Diese können Sie einzeln eingeben (dc.b 
100,33,20) als Text in Hochkommas oder wie hier gemischt. Der Name einer Library 
muß mit einem Null-Byte abgeschlossen sein, daher auch die Null am Ende des ersten 
»dc.b«. 

Beim zweiten String ist kein Null-Byte erforderlich, weil die Write-Funktion die Länge 
als Parameter erwartet. Die 10 am Ende dieses Textes ist der ASCII-Code für »neue 
Zeile«. Damit sorge ich nur dafür, daß nach dem Programmlauf der CLI-Prompt (1>) 
auf einer neuen Zeile startet. 

»enop 0,2« ist eine andere Form für »even«, die ich gewählt habe, weil sie zumindest 
der HiSoft- und der Metacomco-Assembler gleichermaßen verstehen (bei SEKA heißt 
das ALIGN). Sie erinnern sich: Man sollte Texte immer auf einer Wortgrenze beginnen 
lassen. Noch sicherer (und bei manchen Funktionen Pflicht) ist eine Langwortgrenze 
(enop 0,4). 

Nun bliebe noch die Frage zu klären, wo die Konstanten wie zum Beispiel JLVOOpen- 
Library herkommen. Schauen wir uns dazu das SEKA-Listing in Bild 4.1.b an. 





* Al_Seka Mein erstes Programm !!! Seka-Version !!! 


SysBase: 

equ 

4 

[Basis von Exec 

LVOOpenLibrary: 

equ 

-552 

[Library oeffnen 

LVOCloseLibrary: 

equ 

-414 

[Library schliessen 

LVOOutput: 

equ 

-60 

[DOS: Output-Handle holen 

LVOWrite: 

equ 

-48 

; Ausgabe 


*DOS/Lib oeffnen: 


main: move.l /dosname.al 

moveq /0,d0 

move.l SysBase,a6 

jsr LV00penLibrary(a6) 

tst.l d0 

beq fini 

move.l d0,DOSBase 

* Ausgabe-Handle ermitteln: 

move.l DOSBase,a6 ;DOS-Funktion rufen 

jsr LV00utput(a6) ;Hole Output-Handle 

move.l d0,d4 ;und in d4 merken 

* nun Text ausgeben: 

move.l d4,d1 

move.l /string,d2 

moveq /20,d5 

move.l DOSBase,a6 

jsr LVOWrite(a6) 

* Zum Schluss immer die Lib schliessen! 



move. 1 

DOSBase,al 

[Basis der Lib 


move. 1 

SysBase,a6 

[Basis Exec 


jsr 

LVOCloseLibrary(a6) 

[Funktion "Schliessen 

fini: 

rts 


[Return zum CLI 


* Datenbereich: 

DOSBase: dc.l 0 

align 4 

dosname: de 'dos.library',0 

align 4 

string: de 'Hallo lieber Leser!’,10 
align 4 


; Ausgabe-Handle 
;Addresse Text 
;Laenge Text 
;Basis DOS 

;Funktion "Schreiben” 


;Name der DOS-Lib 
[Version egal 
[Basis Exec 
;DOS-Lib oeffnen 
[Fehler? 

;wenn Fehler, Ende 
[Zeiger merken 


Bild 4.1.b: Das Hallo-Programm in der SEKA-Version 
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Hier finden Sie in den ersten Zeilen sogenannte Equates. Auch das sind Assembler- 
Direktiven. ' 

SysBase: equ 4 

definiert die Konstante SysBase mit dem Wert 4. Demnach sind diese Schreibweisen 
gleichwertig: 


move.l SysBase,a6 
move.l 4,a6 

Man sollte jedoch generell die erste Form wählen. Sowohl beim Metacomco- als auch 
DEVPAC-Assembler gibt es Include-Files (Textmodule), in denen diese Konstanten 
definiert sind. Inzwischen dürfte Ihnen auch aufgefallen sein, daß sämtliche Offsets mit 
_LVO beginnen. LVO heißt Library Vector Offset. Bei SEKA gibt es da außer der 
DOS-Lib (und das ist nur 1 / 16 von allem) nichts. Die Unterschiede von SEKA zum 
Standard zeigt man am besten anhand der DEVPAC-Lösung von Bild 4.1.c. 


opt 

* A1_Dev Mein 

1- 

erstes Programm !!! 

;nicht linken! 

DevPac-Version !!! 

_SysBase 

equ 4 

;Basis von Exec 

_LV00penLit)rary 

equ -552 

;Library oeffnen 

_LVOCloseLibrary 

equ -414 

;Library schliessen 

_LV00utput 

equ -60 

;D0S: Output-Handle holen 

_LV0Write 

equ -48 

; Ausgabe 

*D0S/Lib oeffnen: 


main move.l 

/dosname,al 

;Name der DOS-Lib 

moveq 

/0,d0 

;Version egal 

raove.1 

SysBase,a6 

;Basis Exec 

jsr 

LV00penLibrary(a6) 

;D0S-Lib oeffnen 

tst. 1 

d0 

;Fehler? 

beq 

f ini 

;venn Fehler, Ende 

move.1 

d0, DOSBase 

;Zeiger merken 

* Ausgabe-Handle 

ermitteln: 


move. 1 

DOSBase,a6 

;DOS-Funktion rufen 

jsr 

_LV00utput(a6) 

;Hole Output-Handle 

move. 1 

d0,d4 

;und in d4 merken 
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* nun Text ausgeben: 


move.1 

d4, dl 

;Ausgabe-Handle 

move.1 

/string,d2 

;Address Text 

moveq 

/20,dS 

[Laenge Text 

move.1 

_D0SBase,a6 

[Basis DOS 

jsr 

_LV0Write(a6) 

[Funktion "Schreiben” 

* Zum Schluss 

immer die Lib schliessen! 


move.1 

_D0SBase,al 

[Basis der Lib 

move.l 

SysBase,a6 

[Basis Exec 

jsr 

_LV0CloseLibrary(a6) 

[Funktion "Schliessen 1 

fini rts 


[Return zum CLI 

* Datenbereich 



_D0SBase dc.l 

0 


dosname dc.b 

’dos.library’,0 


cnop 

0,2 


string dc.b 

'Hallo lieber Leser!’,10 


cnop 

0,2 



Bild 4.1.c: Das Hallo-Programm in derDEVPAC-Version 


Bei Metacomco und DEVPAC beginnen alle Konstanten mit dem Unterstrich. Dieser 
ist bei SEKA als erstes Zeichen nicht erlaubt, »dc.b« kennt SEKA nicht, man muß das 
b weglassen. 

Für DOS_Base habe ich mit »dc.l 0« diese Adresse mit dem Langwort 0 belegt. An 
sich brauche ich aber nur Speicherplatz für diese Variable, wofür man normalerweise 
»ds.l 1« schreibt (definiere Speicher für 1 Langwort). Da SEKA diese Direktive nicht 
kennt, bin ich auf »dc.l« ausgewichen. 

In der Metacomco-Lösung fehlt das ganz. Dafür sehen Sie am Anfang des Listings sehr 
oft XDEF. Das heißt, diese Dinge sind extern definiert (genauer: im File »amiga.lib«). 
Bei Metacomco ist nach dem Assemblieren noch ein Linkerlauf erforderlich. Dabei 
werden auch die externen Referenzen behandelt. SEKA und DEVPAC kommen ohne 
Linkerlauf aus, sprich können mit dem Assembler schon lauffähige Programme er¬ 
zeugen. 
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4.5 Assemblieren und Linken 

Wenn Sie nun dieses Programm mit einem Editor eingetippt haben, geht die Arbeit 
erst los. Speichern Sie den Text zum Beispiel unter dem Namen TEST.S und kehren 
zum Desktop zurück. Nun folgen mehrere Schritte, die von Ihrem Assembler-Paket ab- 
hängen. Lesen Sie bitte in Ihrem Handbuch nach. 

Bei SEKA und HiSoft ist die Sache ganz einfach. Geben Sie das A-Kommando 
beziehungsweise Amiga-A bei HiSoft. Bei letzterem sollten Sie noch darauf achten, daß 
»nicht linkbarer Code« gewählt wurde, womit ein sofort ausführbares Programm ent¬ 
steht. Dazu können Sie im Listing »opt 1-« als erste Zeile eingeben. Bitte beachten 
Sie: Es muß wirklich die erste Zeile sein, auch eine Leerzeile davor ist nicht erlaubt. 
Bequemer ist es vielleicht, das Install-Programm laufen zu lassen und »opt 1-« damit 
fest voreinzustellen. 

Auch bei Metacomco müssen Sie zuerst assemblieren. Hier ist dann noch ein Linker¬ 
lauf erforderlich. Da beides viel Tipperei bedeutet, schreiben Sie am besten diesen 
Batch-File und speichern ihn unter dem Namen make im s-Directory. 


.key file/a 

c/assem <file>.s -o <flle>.o -c s -1 include 
c/alink <file>.o to <file> library lib/amiga.lib 


Tippen Sie nun 

execute make test (ohne .s!!!) 

Das heißt, assembliere »test.s« und schreibe das Ergebnis in den Code-File »test.o«. 
Lassen Sie das »-o test.o« weg, wird nur assembliert, aber kein Objekt-File erzeugt. 
Das geht sehr schnell und empfiehlt sich, wenn man ein Programm nur auf Fehler¬ 
freiheit testen will. 

Haben Sie keinen Fehler gemacht (der Assembler hat nicht gemeckert), dann beginnt 
das »Linken«. Mein privater heißer Tip: Besorgen Sie sich »BLINK«, was zum DEV- 
PAC gehört, aber als Public Domain gilt. Dieser Linker ist deutlich schneller als 
ALINK, speziell die »Amiga-Gedenkminute« (der Linker tut anscheinend eine ganze 
Weile gar nichts) fehlt. 
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4.6 Eingabe von Strings 

Nun mögen ja Texte, die wir ausgeben, ganz informativ sein, aber im allgemeinen er¬ 
warten wir wohl auch Eingaben von der Tastatur. Mit Bild 4.2 gehen wir deshalb einen 
kleinen Schritt weiter. 


opt l- 

* A2 Mein zweites Programm 


jnicht linken! 


_SysBase 

equ 

4 

;Basis von Exec 

_LV00penLibrary 

equ 

-552 

;Library oeffnen 

_LVOCloseLibrary 

equ 

-414 

;Library schliessen 

_LVOOutput 

equ 

-60 

;D0S: Output-Handle holen 

_LV0Urite 

equ 

-48 

; Ausgabe 

_LV0Read 

equ 

-42 


_LV0Input 

equ 

-54 


*D0S/Lib oeffnen: 





main 

move.1 

/dosname,a1 

;Name der DOS-Lib 


moveq 

/0,d0 

jVersion egal 


move.1 

_SysBase,a6 

;Basis Exec 


jsr 

_LV00penLibrary(a6) 

;D0S-Lib oeffnen 


tst.l 

d0 

iFehler? 


beq 

fini 

jwenn Fehler, Ende 


move.1 

d0 ,a6 

;Zeiger merken 

Ausgabe-Handl 

e ermitteln: 



jsr 

_LV00utput(a6) 

;Hole Output-Handle 


move.1 

d0,d4 

;und in d4 merken 


move.1 

d4, dl 

;nun Text ausgeben 


move.1 

/string,d2 

;wie gehabt 


moveq 

/12,d5 



jsr 

_LVOWrite(a6) 


Nun 

lese von 

der Tastatur: 



jsr 

_LVOInput(a6) 

;Hole Input-Handle 


move. 1 

d0,d1 

;und in dl kopieren 


move.1 

/buffer,d2 

;Adresse des Puffers 


moveq 

/80,d5 

;erlaube 80 Zeichen 


jsr 

_LV0Read(a6) 

;und lese 


move. 1 

d0, len 
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* nun Inhalt buffer ausgeben: 


move.l 

d4, dl 

;Ausgabe-Handle 

move.l 

/buffer,d2 

;Address Text 

move.1 

len.dj 

;Laenge Text 

jsr 

_LV0Write(a6) 

;Funktion "Schreiben" 

* Zum Schluss 

Immer die Lib schliessen! 


move.1 

a6,a1 

;D0S-Lib-Basis 

move.l 

_SysBase,a6 

;Basis Exec 

jsr 

LV0CloseLibrary(a6) 

;Funktion "Schliessen” 

finl rts 


;Return zum CLI 


* Datenbereich: 


dosname dc.b 
cnop 

string dc.b 
cnop 

buffer ds.b 
len ds.l 


’dos.library’,0 

0,2 

'Enter Text: ' 
0,2 
80 
1 


Bild 4.2: Eingabe von St/ings 


Bis hin zur Zeile »* nun lese von der Tastatur:« hat sich gegenüber dem ersten Listing 
nichts geändert. Der ausgegebene Text heißt jetzt »Enter Text: «, und an dieser Stelle 
soll der User lostippen. Damit wir wissen, woher die Eingaben kommen, müssen wir 
zuerst die Handle der Tastatur kennen. Analog zur Output-Handle ermitteln wir diese 
mit der Funktion _LVOInput. 

Haben wir die Input-Handle, können wir damit JLVORead aufrufen. Diese Funktion 
verhält sich sonst wie _LVOWrite, nur daß wir hier nicht die Adresse eines Textes 
übergeben, sondern die Adresse eines Puffers, in dem die Eingabe abgelegt werden 
soll. Mit 


buffer ds.b 80 

weist man den Assembler an, nun eine Lücke von 80 Byte zu lassen. Mit »ds.w 40« oder 
»ds.l 20« hätte ich dasselbe erreicht. Auf die gleiche Art wird ein Langwort reserviert, 
in dem wir die Länge der Eingabe ablegen können. Die Funktion LVORead ist sehr 
flexibel. Die Längenangabe, mit der sie aufgerufen wird, ist immer das Maximum. Ge¬ 
ben Sie weniger ein (Ende mit Return-Taste), steht nach dem JSR die Ist-Länge im 
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Register dO. Ich kopiere dann dO in die Variable len. Das muß hier zwar nicht sein, 
sollte aber einmal gezeigt werden. Anschließend wird nämlich len wieder in das Regi¬ 
ster d3 kopiert, um die Ihnen schon bekannte Funktion _LVOWrite aufzurufen, die 
jetzt allerdings den Pufferinhalt ausgibt. 


4.7 Schleifen 

In diesem Abschnitt geht es um Schleifen. Vorab möchte ich allerdings etwas zur 
Rationalisierung unserer Arbeit tun. Wir haben nun schon zweimal diese Folge einge¬ 
tippt: 


_SysBase 

equ 

4 

;Basis von Exec 

_LV00penLibrary 

equ 

-552 

;Library oeffnen 

_LVOCloseLibrary equ 

-414 

;Llbrary schllessen 

_LVOOutput 

equ 

-60 

;D0S: Output-Handle holen 

_LV0Write 

equ 

-48 

; Ausgabe 

_LV0Read 

equ 

-42 


_LV0Input 

equ 

-54 


*D0S/Lib oeffnen: 



_main move.l 

/dosname.al 

;Name der DOS-Lib 

moveq 

/0,d0 


;Version egal 

move.1 

_SysBase,a6 

;Basis Exec 

jsr 

_LV00penLibrary(a6) 

;D0S-Lib oeffnen 

tst.l 

d0 


;Fehler? 

beq 

finl 


;wenn Fehler, Ende 

move.l 

d0,a6 


;Zeiger merken 


Bild 4.3: Ein Include-File, der noch oft gebraucht wird 


Speichern Sie den Text von Bild 4.3 mittels der Blockfunktion Ihres Editors unter dem 
Namen »OpenDos.i« ab. In den folgenden Programmen reicht dann eine Include- 
Anweisung, und der Assembler wird diesen Text automatisch einziehen. Bei Meta- 
comco muß der Dateiname in Anführungszeichen oder Hochkommas stehen. SEKA 
kann kein Include, dort müssen Sie den Text mittels des R-Kommandos lesen. 

Die folgende Aufgabe lautet: Es sollen die Buchstaben von A bis Z ausgegeben werden. 
Das lösen wir zuerst ganz primitiv und beschränken uns deshalb auch auf A bis D. Aber 
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auch dazu müssen die Zeichen in einem Puffer stehen; die Frage ist nur, wie wir sie da 
hinein bekommen. 

In Bild 4.4 stelle ich ein Register auf den Beginn des Puffers, und zwar mit 

lea.l buffer,a0 

Das heißt »Lade aO mit der effektiven Adresse von buffer«. Das ».1« ist an sich über¬ 
flüssig (Adressen sind immer lang), aber manche Assembler bestehen trotzdem darauf. 
Der Befehl ist von gleicher Wirkung wie 

move.l /buffer,a0 

Mit der Anweisung 

move.b /'A 1 ,(a0)+ 

wird die Konstante A auf die Adresse geschrieben, auf die aO zeigt (hier Beginn buffer), 
und anschließend wird aO um eins hochgezählt. Ein beliebter Fehler ist übrigens, das 
».b« wegzulassen. Die Assembler setzen dafür nämlich automatisch ».w« ein, womit in 
diesem Fall aO um 2 erhöht wird. 

Wie auch immer, aO zeigt schon auf die nächste Adresse, und wir können somit das 
Spielchen fortsetzen. 


opt 1- 

* A5 Hein drittes Programm 

include OpenDos.i 

* Ausgabe-Handle ermitteln: 

jsr _LV00utput(a6) 

move.l d0,d4 

* Puffer fuellen 

lea.l buffer,a0 
move.b /’A’,(a0)+ 
move.b /'B',(a0)+ 
move.b /’C‘,(a0)+ 
move.b /’D 1 ,(a0)+ 
move.b /10,(a0) 


;nicht linken! 


;Hole Output-Handle 
;und in d4 merken 
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* nun Inhalt buffer ausgeben: 

Ausgabe-Handle 
Address Text 
Laenge Text 
Funktion "Schreiben" 

* Zum Schluss immer die Lib schliessen! 


move.i 04,01 
move.l /buffer,d2 
move.i /5,dS 
isr LV0Urite(a6) 


move.i a6,a1 

move.i _SysBase,a6 

jsr _LV0CloseLibrary(a6) 


DOS-Lib-Basis 
Basis Exec 

Funktion "Schliessen” 


fini rts 


;Return zum CLI 


* Datenbereich: 

dosname dc.b ’dos.library’,0 

cnop 0,2 

buffer ds.b 80 


Bild 4.4: Puffer mit Zeichen füllen. Lösung 1 


4.7.1 Die DBcc-Schleife 

In Bild 4.4 tun wir immer wieder das gleiche; Grund genug uns einer effektiveren 
Technik für Wiederholungen, nämlich den Schleifen zuzuwenden. Wir wollen die Buch¬ 
staben A bis Z drucken und zwar in der Art, wie man als BASIC-Programm schreiben 
würde: 


10 FOR 1= ASCC’A”) TO ASC(”Z”) 
20 PRINT CHRS<I) 

50 NEXT 


Bild 4.5 bringt die Lösung: 
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opt 1- ;nicht linken! 

* A4 Mein viertes Programm 
include OpenDos.i 


* Ausgabe-Handle ermitteln: 


jsr 

_LV00utput(a6) 

;Hole Output-Handle 

move.1 

d0,d4 

;und in d4 merken 

* Puffer fuellen: 


lea.l 

buffer,a0 


move 

/25.d0 

;Siehe Text 

move.b 

/'A',d1 


loop move.b 

dl,(a0)+ 


addq 

/I ,d1 


dbra 

d0,loop 


move.b 

/10,(a0) 

;Neue Zeile 

* nun Inhalt buffer ausgeben: 


move.l 

d4,d1 

;Ausgabe-Handle 

move.1 

/buffer,d2 

;Address Text 

move.1 

/27,d3 

;Laenge Text 

Jsr 

_LV0Write(a6) 

jFunktion "Schreiben” 

* Zum Schluss immer die Lib schliessen! 


move.1 

a6,a1 

;D0S-Lib-Basis 

move.l 

_SysBase,a6 

;Basis Exec 

Jsr 

_LVOCloseLibrary(a6) 

;Funktion "Schliessen” 

fini rts 


;Return zum CLI 

* Datenbereich: 

dosname dc.b 

’dos.library 1 ,0 


cnop 

0,2 


buffer ds.b 

80 


Bild 4.5: Drucken 

von A bis Z mit DBcc 



Im Gegensatz zu den meisten Konkurrenten hat der 68000 einen Schleifenbefehl schon 
eingebaut, nämlich: 


DBcc 


Dn,Marke 
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Das steht für »Decrement and Branch on Condition Code«. Wow, das ist ein Ding! 

Also der Reihe nach: Mit dem DBcc-Befehl wird immer ein Datenregister angegeben, 
das kann DO bis D7 sein; nennen wir es Dn. Vor dem Eintritt in die Schleife wird Dn 
ein Wert zugewiesen. In der Schleife, genau immer dann, wenn der DBcc-Befehl 
durchlaufen wird, wird Dn um eins dekrementiert. Solange Dn dabei nicht —1 wird, 
erfolgt ein Sprung zu »Marke«, ansonsten wird der nächstfolgende Befehl ausgeführt. 
Nun zum »cc«: Zusätzlich kann man mm noch vor dem DBcc-Befehl mit zum Beispiel 
einer CMP-Anweisung (compare = vergleiche) eine Bedingung testen und dann zum 
Beispiel sagen: 

CMP (A0)+,D0 

DBeq Dl.Marke 

In diesem Fall erfolgt der Sprung zu »Marke« nur dann, wenn die Bedingung »A(0) eq 
(equal = gleich) DO« erfüllt ist, ansonsten wird die Schleife beendet. Man kann es auch 
so sehen: Die Schleife wird durchlaufen, solange die cc-Bedingung nicht erfüllt ist, aber 
höchstens solange, wie der Zähler noch nicht auf —1 ist. Die Kürzel für »cc« sind die 
gleichen, wie beim bcc-Befehl. Zum Beispiel gibt es BEQ (Branch if Equal) und DBEQ 
(Decrement and Branch if Equal). Die Einzelheiten zu allen »cc« finden Sie im näch¬ 
sten Kapitel, machen wir aber erst einmal mit der Praxis weiter. Häufig interessiert 
nämlich die Bedingung überhaupt nicht, man will nur zählen. In diesem Fall sagt man 
einfach 


DBRA, 

was Decrement and Branch Allways (springe immer) heißt, natürlich nur solange der 
Zähler nicht abgelaufen ist. Häufig sieht man auch »DBF«, wobei F für »False« 
(Falsch) steht; das ist nur eine andere Schreibweise. Gute Assembler akzeptieren 
sowohl »RA« als auch »F«. Nim können wir uns dem Listing von Bild 4.5 zuwenden. 
Wir wollten die 26 Buchstaben von A bis Z drucken. Weil der Zähler dO aber immer bis 
—1 läuft, initialisiere ich ihn mit 25, siehe erste Zeile. Den Code für Buchstaben halte 
ich im Register dl, das also zuerst mit »A« geladen wird. 

Bei »Loop« geht es nun los. Wie gehabt, packen wir ein Zeichen mittels »(aO) + « in den 
Puffer. Doch nun das Neue: Mit »addq #l,dl« wird dl inkrementiert, aus dem A wird 
also ein B (dann aus dem B ein C usw.). Die Arbeit leistet die nächste Zeile: 

dbra d0,loop 

heißt: dekrementiere dO. Wenn es dann noch nicht —1 ist, springe zu »Loop«, ansonsten 
nächster Befehl. Hier ginge es also im Fall von —1 bei der Ausgabe weiter. 
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4.8 Die Kommandozeile 

Sozusagen als Einlage möchte ich Ihnen noch ein Programm vorstellen, das einen Text 
ausgibt. Diesmal aber einen Text, der im Programm nirgends definiert ist. Sie rufen 
bekanntlich ein Programm unter CLI auf, indem Sie nur seinen Namen eintippen. Sie 
können aber dem Namen nach einem Leerzeichen noch beliebigen Text folgen lassen. 
Diesen Text nennt man die Kommandozeile. Viele CLI-Kommandos arbeiten damit. 
Tippen Sie zum Beispiel 

cd dffl: 

so rufen Sie damit ein Programm namens cd auf und übergeben die Kommandozeile 
»dfO:«. 


Wie man das Kommando liest, zeigt Bild 4.6. 


opt 1- jnicht linken! 

* A5 Mein fuenftes Programm 


* Immer zuerst Adresse und Laenge der Kommandozeile retten 
movem.l a0/d0,-(sp) 


include OpenDos.i 

jsr _LV00utput(a6) 

move.l d0,d1 

movem.l (sp)+,a0/d0 

move.l a0,d2 
move.l d0,d3 
jsr _LV0Write(a6) 


;Hole Output-Handle 
;da soll sie hin 

[Parameter zurueck 

[Adresse Kommandozeile 
[Laenge 

[Funktion "Schreiben” 


* Zum Schluss immer die Lib schliessen! 


move.l a6,a1 [DOS-Lib-Basis 

move.l _SysBase,a6 [Basis Exec 

jsr _LVOCloseLibrary(a6)[Funktion "Schliessen” 

fini rts [Return zum CLI 

* Datenbereich: 


dosname dc.b ’dos.library■,0 


Bild 4.6: Lesen der Kommandozeile 
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Das DOS speichert die Kommandozeile im RAM und stellt das Register aO auf die 
Anfangsadresse. In dO wird die Länge notiert. Da prinzipiell die Register dO, dl, aO und 
al Scratch (Schmierpapier) sind (jede Routine kann sie ändern), muß ein Programm, 
das die Kommandozeile benötigt, zuerst die Register aO und dO retten. 

Normalerweise speichert man beide Register in Variablen ab, ich möchte Ihnen aber 
eine andere Möglichkeit vorstellen, und das wäre der Stack. 

Der 68000 kann mit einem einzigen Befehl alle oder einige Register auf den Stack brin¬ 
gen oder von dort holen. Mit 

movem.l a0/d0,-(sp) 

werden aO und dO auf dem Stack abgelegt. Es sind beliebige Kombinationen wie 
»a0/a3/a5/dl/d6« erlaubt oder Listen wie »d0-d7/a0-a4« (dO bis d7, aO bis a4). 
Wichtig ist, daß Sie dann später mit dem analogen Befehl die Daten auch wieder vom 
Stack holen. In unserem Fall geschieht das mit 

movem.l (sp)+,a0/d0 jParameter zurueck 

Danach müssen wir nur noch die Register in die Parameter-Register der Write-Funk- 
tion kopieren und können die Kommandozeile ausgeben. Später werde ich Ihnen ein 
Programm vorstellen, das die Kommandozeile untersucht und daraus Aktionen ableitet. 


4.9 Unterprogramme 

Das Programm von Bild 4.7 soll fragen »Wie heißt Du?«. Der User gibt dann einen 
Text ein (ich hoffe, seinen Namen) , und das Programm antwortet dann »Guten Tag, 
lieber Name«. 

Alles was wir dafür brauchen, kennen Sie schon (Eingabe und Ausgabe von Strings), 
nur langsam wird die Sache lästig. Wir müssen nämlich dreimal einen Text ausgeben. 
Jedesmal die ganze Sequenz dafür zu schreiben, ist zwar möglich, aber besser erledigt 
man das mit Unterprogrammen. Das Problem bei Unterprogrammen ist die 
Parameterübergabe. Wenn ich alle drei Parameter der Write-Funktion übergebe (drei 
Befehle) und dann mein Unterprogramm »print« aufrufe, habe ich nichts gewonnen. 
Ich könnte dann auch gleich die drei Parameter an Write übergeben und diese DOS- 
Routine rufen. Daher folgende Vereinbarungen: 

1. Die Output-Handle ist bekannt (steht in d4) 

2. Es wird nur die Adresse des Textes übergeben. Im Text ist die Länge »versteckt«: 
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Wie man das löst, zeigt Bild 4.7: 


opt 1- [nicht linken! 

* A6 Mein sechstes Programm 


include 

OpenDos.i 


jsr 

_LVOOutput(a6) 

;Hole Output-Handle 

move.1 

d0,d4 


lea.l 

msgl,a0 

;frage nach Namen 

bsr 

print 


jsr 

_LV0Input(a6) 

;Hole Input-Handle 

move.l 

d0, dl 

;und arbeite damit 

lea.l 

buffer,a2 

[Zeiger auf Puffer 

move.l 

a2,d2 

;an Read uebergeben 

addq.1 

/1,d2 

;Laengen-Byte skippen 

move.l 

/79,d3 

;so lang darf Name sein 

jsr 

_LV0Read(a6) 

;Ist-Laenge in d0 

addq.1 

/I ,d0 

;verlaengern 

move.b 

d0,(a2) 

;und eintragen 

move.b 

,-1(a2,d0.1) 

;! in Puffer 

move.b 

/10,0(a2,d0.1) 

;und noch neue Zeile 

lea. 1 

msg2,a0 

;sage Guten Tag 

bsr 

print 


move.l 

a2,a0 

;drucke Namen 

bsr 

print 



* Zum Schluss immer die Lib schliessen! 



move.l 

a6,a1 

;DOS-Lib-Basis 


move.1 

_SysBase,a6 

;Basis Exec 


jsr 

_LVOCloseLibrary(a6) 

[Funktion "Schliessen 1 

fini 

rts 


[Return zum CLI 

print 

clr.l 

d5 



move.b 

(a0)+,d5 

[Laenge 


move.1 

d4, dl 

[Output-Handle 


move.1 

a0,d2 

[Adresse 


jsr 

rts 

_LV0Write(a6) 

[Funktion "Schreiben” 


* Datenbereich: 


dosname dc.b 


’dos.library',0 
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cnop 

0,2 

msgl 

de .b 

16,’Wie heisst Du? ’ 


cnop 

0,2 

msg2 

de .b 

19,10,'Guten Tag, lieber 


cnop 

0,2 

buffer 

ds.b 

80 


Bild 4.7: Unterprogramme in der Praxis 


Der Trick steckt in den letzten Zeilen. Die ersten Bytes der Strings msgl und msg2 
halten die Länge des folgenden Textes. Da Strings in Pascal so abgelegt werden, spricht 
man auch von Pascal-Strings. 

Der Aufruf des Unterprogramms erfolgt nach diesem Schema: 

lea.l msgl,a0 [frage nach Namen 

bsr print 


Das heißt, nur die Adresse des jeweiligen Strings wird übergeben. BSR heißt »Branch 
to Sub Routine« (Verzweige zum Unterprogramm). Der Unterschied zu JSR besteht 
darin, daß BSR auf eine Sprungweite von + /- 32 Kbyte begrenzt ist, während JSR für 
den vollen Adreßbereich des 68000 (16 Mbyte) gilt. Sie müssen nicht BSR nehmen, das 
spart nur etwas Code und Zeit. Nun zum Unterprogramm selbst: 


print 


clr.l d5 

move.b (a0)+,d 

move.l d4,d1 

move.l a0,d2 

jsr _LV0Write(a6) 

rts 


;Laenge 

[Output-Handle 
;Adresse 

[Funktion "Schreiben” 


In der zweiten Zeile steckt des Pudels Kern. Das Längen-Byte wird in das Register d3 
kopiert (da erwartet es Write). Das kleine »+« stellt gleichzeitig aO auf den Beginn des 
Textes. Wir können dann getrost zwei Zeilen später aO in d2 kopieren. Das klappt, nur 
der direkte Zugriff auf den Textbeginn geht schief (ungerade Adresse, Write muß die¬ 
sen Fall abfangen). Nun zur ersten Zeile: Die Länge muß als Langwort übergeben wer¬ 
den, wir haben aber nur ein Byte. Unser Problem: 

Stehen in einem Register die vier Byte 

B3 B2 Bl B0 


dann »moved« 
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move.b B0 

move oder move.v Bl, B0 

move.l B3, B2, Bl B0 

Wenn wir nur ein Byte übertragen, bleibt der Rest von 3 unverändert. Damit können 
dann im Langwort d3 »Hausnummern« entstehen. Daher lösche ich vorher mit clr 
(clear = lösche, fülle mit Nullen) das Register. Übrigens: Wenn Sie schreiben 

moveq /I,d3 

ist das O.K., weil moveq (move quick) automatisch die Konstante auf »long« erweitert. 
Die Konstante ist übrigens auf 8 Bit (-128 bis +127) begrenzt. 

Hat man sich erst einmal auf ein bestimmtes Verfahren zur Parameterübergabe an 
Unterprogramme eingelassen, dann kann das unter Umständen recht gravierende Fol¬ 
gen haben. Um das zu zeigen, habe ich mir die Auflage erteilt, daß auch Texte, die mit 
Read gelesen wurden, mit der Print-Routine ausgegeben werden sollen. 

Read liest bekanntlich in einen Puffer und zwar an sich ab dessen Beginn. Nun erwartet 
aber Print als erstes Zeichen in diesem Puffer die Länge des Textes. Das hat zur Folge: 


lea. 1 

buffer,a2 

;Zeiger auf Puffer 

move. 1 

a2,d2 

;an Read uebergeben 

addq.1 

/I ,d2 

;Laengen-Byte skippen 

move.1 

/79,d3 

;so lang darf Name sein 

jsr 

_LV0Read(a6) 

;Ist-Laenge in d0 

move. b 

d0,(a2) 

;und eintragen 


Die ersten beiden Zeilen sind noch die üblichen. Wir stellen a2 als Zeiger auf den Puf¬ 
ferbeginn und kopieren dann a2 nach d2, wo Read üblicherweise die Pufferadresse er¬ 
wartet. Doch nun wird d2 um 1 erhöht. Damit zeigt d2 auf das zweite Byte im Puffer. 
Read wird also ab dieser Adresse den Puffer füllen, unser Längen-Byte bleibt frei. 
Nach dem JSR wird dann einfach die Ist-Länge in den Puffer kopiert, was 

move.b d0,(a2) 

erledigt. Doch nun schauen Sie auf das Listing, da steht noch mehr. Der Grund: Nach 
dem Namen soll noch ein Ausrufungszeichen gedruckt werden. Dafür wird a) die Ist- 
Länge erhöht und b) das Ausrufungszeichen in den Puffer geschrieben. Dahinter soll 
dann noch wieder die 10 (neue Zeile) folgen. Daher: 


move.b /’!’,-1(a2,d0.1) 
move.b /10,0(a2,d0.1) 


;! in Puffer 

;und noch neue Zeile 
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Falls Sie sich bisher noch nicht vorstellen konnten, was man mit »ARI mit Index und 
Offset« (siehe Kapitel 3) anfangen könnte, hier haben wir eine praktische Anwendung. 

Zuerst stolpern Sie vielleicht über das »—1«. Dazu muß man wissen, daß die Read- 
Funktion auch die Return-Taste (ASCII-Code 10) als letztes Zeichen im Puffer ablegt 
und auch bei der Länge mitzählt. 

(a2, dfl.l) 

heißt: bilde die Adresse aus Summe von a2 + dO. Beginnt der Puffer zum Beispiel auf 
Adresse 1000, und haben wir die Zeichen ABC eingetippt, so stehen im Puffer: 

Adresse = 1000 1001 1002 1003 

Zeichen = A B C Return 

Die Länge ist 4. Folglich ist 1000 + 4 (a2 + dO) = 1004. 

Wir wollen aber das Ausrufungszeichen auf die Adresse 1003 bringen. Daher addieren 
wir noch das Offset von —1, sprich subtrahieren 1. Der nächste Befehl 

move.b /10,0(a2,d0.1) 

addiert ein Offset von Null. Damit wird dann »#10« auf die Adresse 1004 geschrieben. 
Wir können die Null nicht weglassen. Die Syntax des Befehls will dort eine Konstante 
sehen. Übrigens findet man häufig diese Form mit dem Null-Offset, weil es meistens 
reicht, die Adresse nur aus den beiden Registern zu bilden. 


4.10 Programmsegmente Text, Data und BSS 

Häufig finden Sie in Listings nun noch diese Direktiven: 

text 

data 

bss 

Eventuell steht noch das Wort SECTION davor, für »text« trifft man auch »Code« an. 

»data« ist die Anweisung an den Assembler, die folgenden Daten in das Datensegment 
des Programms zu packen. Dazu müssen Sie wissen: Ein Programm kann aus Segmen¬ 
ten bestehen. Das erste Segment heißt Text oder Code. Darin steht das eigentliche 
Programm. Sie können, in manchen Assemblern müssen Sie sogar, Ihr Programm mit 
dem Wort »text« starten. 
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Im Data-Segment stehen alle initialisierten Daten, also solche, die einen Wert haben, 
wie zum Beispiel unsere Texte. Im »bss« (block storage segment) werden Daten abge¬ 
legt, die erst während der Programmlaufzeit entstehen. Praktisch sind es nur reservierte 
Speicherbereiche (entstehen mit der DS-Direktive). 

Wie gesagt, Sie können, Sie müssen nicht diese Sektionen bilden. Vorteilhaft ist das erst 
bei sehr großen Programmen, die damit dem Lader die Chance bieten, leichter noch 
passende freie Speicherbereiche für die einzelnen Segmente zu finden. DEVPAC 
unterstützt aber zur Zeit nur eine Sektion, SEKA keine. 



Kapitel 5 


Verzweigungen und Menü-Technik 


In diesem Kapitel geht es 
um das »IF THEN« in Assembler 
und um das leidige, aber sehr notwendige 

Bit-Schieben. 

Natürlich kommt auch wieder die Praxis 

an die Reihe. 

Diesmal lernen wir den Einsatz 
der Funktionstasten 
und das Prinzip von »ON X GOSUB«. 
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5.1 IF THEN im Detail 

Wir hatten es ja schon angedeutet, nun schauen wir es uns etwas genauer an, das »IF 
Bedingung THEN GOTO«. Prinzipiell funktioniert es so wie in den Hochsprachen: 
Man fragt eine Bedingung ab und verzweigt in Abhängigkeit vom Ergebnis. Der kleine 
Unterschied zu den Hochsprachen: Die Bedingung ist der Zustand einiger Bits im CCR 
(Condition Code Register), was wiederum Teil des Statusregisters ist. Wie dieses Regi¬ 
ster aussieht, zeigt das folgende Bild (Bild 5.1). 
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Supervisor 


^_Flags_ 

Extended 
Negativ - 
Zero - 


1 


not used 


Overflow 
Carry- 


Bild 5.1: Das Statusregister des 68000 


5.1.1 Das Statusregister 

Sie sehen sofort, daß das Wort in ein System- und ein User-Byte unterteilt ist. Dazu 
wissen Sie schon, daß der 68000 zwei Betriebsarten kennt, nämlich Supervisor-Mode 
und User-Mode. 

Der Supervisor-Mode sollte dem Betriebssystem Vorbehalten bleiben, wir »User« 
arbeiten sicherheitshalber nur im User-Mode. Deshalb interessieren uns von den Bits 
(auch Flags genannt) auch zuerst nur X, N, Z, V und C. 
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5.1.2 Die Flags 

Es gibt viele Befehle, die diese Flags beeinflussen, meistens jedoch sind es mathemati¬ 
sche Operationen mit zwei Operanden, wobei der Quelloperand vom Zieloperanden 
subtrahiert wird. Wird dabei das Ergebnis negativ, setzt der 68000 das N-Flag (das Bit 
wird 1). 

Entsteht ein Überlauf, wird das Overflow-Bit gesetzt, bei einem Übertrag (Addition) 
bzw. beim »Borgen« während der Subtraktion geht das Carry-Flag auf eins. Treten 
umgekehrt diese Zustände während der Operation nicht ein, werden die entsprechen¬ 
den Flags auf Null gesetzt. 

Vorerst nur als Info: T ist das Trace-Bit, S das Supervisor-Bit und iO, il, i2 die Inter¬ 
rupt-Maske. 


5.1.3 Die Abfrage der Flags 


Kürzel 

Bedeutung 

Deutsch 

CC 

Carry Clear 

Carry = 0 

CS 

Carry Set 

Carry = 1 

EQ 

Equal 

Z =1 

GE 

Greater or Equal 

> = 

*** Qrp 

Greater Than 

> 

HI 

Higher 

> 

*** LE 

Less or Equal 

< 

LS 

Less or Same 

< = 

*** LT 

Less Than 

< 

MI 

Minus 

— 

NE 

Not Equal 

< > 

PL 

Plus 

+ 

*** \(2 

oVerflow Clear 

V = 0 

*** yg 

oVerflow Set 

V =1 


Tabelle 5.1: Kürzel der »Condition Codes« 

Die Flags selbst kann man zwar abfragen, aber das tut man im allgemeinen nicht. Statt- 
dessen schreibt man einen Befehl, der die Flags beeinflußt (prüft) und dann sinngemäß 
»GOTO Adresse, wenn dieses Flag diesen Zustand hat«. Merken Sie sich bitte, daß 
GOTO hier Branch heißt, wofür man aber nur B schreibt. Ganz entscheidend ist nun, 
daß (im Gegensatz zu den »8-Bittern«) es auch Branch-Befehle gibt, die mehrere Flags 
auf einmal berücksichtigen. Noch ein Unterschied: Es gibt verschiedene Branch- 
Befehle für vorzeichenlose und vorzeichenbehaftete Zahlen (2er-Komplement). Natür- 
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lieh gibt es auch Befehle, die nur auf ein Bit reagieren. Tabelle 5.1 bringt eine Über¬ 
sicht. 

Die in der Tabelle mit *** gekennzeichneten Operatoren gelten nur für Zahlen im 
sogenannten 2er-Komplement-Format, das sind diese, bei denen das höchstwertige Bit 
als Vorzeichen dient. Die Befehle fangen immer mit B (wie Branch) an, gefolgt von 
zwei Buchstaben, die die Kurzform für die Bedingung sind. Wenn Sie nun zum Beispiel 
BEQ (springe wenn gleich) schreiben, dann hängt es ausschließlich vom Z-Flag ab, ob 
der Befehl ausgeführt wird, oder nicht. 

Das Z-Flag kann aber durch einen mehr oder weniger weit vor dem BEQ liegenden 
Befehl beeinflußt worden sein. Wenn Sie nun genau wissen, welcher Befehl das Z-Flag 
wie beeinflußt, dann könnten Sie das Risiko eingehen. Sicherer ist es auf jeden Fall, 
direkt vor dem BEQ einen Befehl zu schreiben, der das prüft. Wenn ich zum Beispiel 
springen will, wenn das Register D0 = 0 ist, dann schreibe ich: 

CUP /0,D0 
BEQ Harke 

Der CMP-Befehl subtrahiert den Quelloperanden vom Zieloperanden, ändert je nach 
Ergebnis die Flags, schreibt aber nicht das Ergebnis ins Ziel. Das heißt, der Ver¬ 
gleichsbefehl wirkt auf die Flags wie eine Subtraktion. Das müssen sich die armen 
Kollegen mit den »8-Bittern« immer vor Augen führen, wenn Sie danach einzelne Flags 
(mit je einem Befehl) testen. Sie haben es besser. Sie dürfen zum Beispiel BGE 
(Springe wenn größer oder gleich) schreiben. Sie müssen sich nur dreierlei merken: 

1. Diese Luxusbefehle sind nur direkt nach einem CMP korrekt wirksam. 

2. Der zweite Operand wird mit dem ersten verglichen. Wenn ich zum Beispiel sprin¬ 
gen will, wenn DO größer als 9 ist (DO >9), schreibe ich: 

CMP /9,D0 
BGT Marke 

3. Man muß wissen, ob man die Operanden als vorzeichenbehaftete oder vorzeichen¬ 
lose Zahlen vereinbart hat. Sinngemäß kann man die Kürzel auch im Zusammen¬ 
hang mit DBcc anwenden, DBMI oder DBGT wären zwei Beispiele. BRA ist ein 
Sonderfall (springe immer); dem entspricht auch DBRA oder DBF. 


5.2 Unser erstes Window 

Mit Bild 5.2 komme ich wieder zur Praxis. Die Funktion Read legt einen Text Zeichen 
für Zeichen in einem Puffer ab. Nun will ich wissen, welche Taste welchen Code er¬ 
zeugt. Dazu muß ich den Inhalt des Puffers ausdrucken und zwar in hex. Hauptaufgabe 
von Bild 5.1 ist somit die Ausgabe von Bytes in Form von je zwei Hex-Zeichen. Für ein 
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A wäre zum Beispiel 41 zu drucken. Nun muß ich Ihnen allerdings gleich verraten, daß 
wir mit der normalen Konsole, mit der wir bisher gearbeitet haben (CON:) zwar die 
Standardtasten erfassen, nicht aber die Sondertasten, wozu die Cursor-Steuerung und 
die Funktionstasten zählen. Um also in einem Programm auf die Funktionstasten rea¬ 
gieren zu können, müssen wir etwas Besonderes tun. 

Zuerst dürfen wir nicht mehr die Standard-Handies Input und Output verwenden, son¬ 
dern müssen selbst etwas für das I/O tun. Dazu bietet uns der Amiga die Auswahl 
unter einigen Devices (Geräten) an. Dazu zählen unter anderem: 

PAR: Parallelschnittstelle 
SER: Serielle Schnittstelle 

CON: Konsole 
RAW: Konsole 


fjfiw Cli Hindcw 


I> 

i> cd dfa: 

i) fi 


vwwwinniwwwmwiiiwwvwwiiM^^ 

VVVWUWWVWVVramANWWVVWAAmMmVWVWW^^ 


□a 


Stß? »it >; 


VWVIMMMAMUIIMIIIWVVVVVV«^^ 


__ sa 

61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 78 71 72 73 74 75 76 77 
9B 38 7E 9B 31 7E 9B 32 7E 9B 33 7E 9B 34 7E 9B 35 7E 9B 36 7E 0D M 
9B 41 9E 42 9B 44 9B 43 


00 


Bild 5.2 Unser etstes Window 


Der Unterschied zwischen CON: und RAW: ist, daß nur lezteres alle Tasten (also auch 
die Sondertasten) behandelt. Der Nachteil von RAW: ist, daß alle Editierfunktionen 
ausgeschlossen, sprich vom Anwenderprogramm selbst zu stellen sind. RAW: ist das 
typische Device für Editor-Programme. 
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Bild 5.2 soll zeigen, was wir uns als Aufgabe vornehmen. Im CLI-Window erscheint ein 
neues (unser) Window. In diesem Fenster erscheinen Hex-Zahlen immer, wenn wir 
eine Taste tippen. Die Zahlen beschreiben die Codes der Tasten. In der ersten Zeile 
habe ich schlicht die Buchstaben von a bis w getippt. Sie sehen die zugehörigen ASCII- 
Codes von $61 bis $77 ($ heißt hex). 

In der zweiten Zeile habe ich die Funktionstasten betätigt. Was Sie vielleicht nur erah¬ 
nen können: Jede Taste erzeugt drei Zeichen und zwar: 

QD 9B 30 7E 

m 9B 31 7E 

m 9B 32 7E 

usw. 

In der dritten Zeile stehen die Cursortasten. Diese generieren nur zwei Zeichen und 
zwar: 

fflüfl 9B41 

ÜD 9B42 

I Links | 9B 43 

I Rechts | 9B 44 

Allen Sondertasten ist also gemeinsam, daß sie eine Sequenz erzeugen, die mit $9B 
startet. Damit kann man recht einfach diese Tasten von allen anderen unterscheiden. 
Gleichzeitig ist das allerdings auch die Aufforderung, ein weiteres Zeichen auszu¬ 
werten, denn erst da beginnen die Unterschiede. Auf diese Feinheit verzichten wir vor¬ 
erst und sagen einfach: alles anzeigen, was kommt. Nun aber zum Listing von Bild 5.3. 


opt 1- 

* Fl Funktionstasten lesen 


;nicht linken! 


include OpenDos.i 


LVOOpen 

LVOClose 

move.1 
move.1 
jsr 
move.1 
tst. 1 
beq 


equ -30 
equ -36 

/name,dl 

/1005,d2 

_LV00pen(a6) 

d0,d5 

d0 

f ini 


Name von RAH: 
Status = gibt es 
nun oeffnen 
Handle merken 
Fehler? 

wenn ja, abbrechen 
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loop 

move. 1 

d5,d1 

von RAW lesen 


move. 1 

/buffer,d2 

in diesen Puffer 


move. 1 

/I ,d3 

Länge, siehe Text 


jsr 

_LV0Read(a6) 

Lesen aufrufen 


cmp. b 

/’x’.buffer 

Zeichen = ’x’ ? 


beq 

fertig 

wenn ja 


move. 1 

buffer,d2 

Zeichen nach d2 


lea. 1 

hbuf,a0 

Ziel fuer Wandlung 


move.b 

/’ ’,2(a0) 

Blank nach Hex 


bsr 

hex 

in Hex-Zahl wandeln 

* nun 

rlex-Zahl 

ausgeben: 



move. 1 

d5, dl 

auch Output im Window 


move. 1 

/hbuf,d2 

Address Hex-String 


move. 1 

/3,d3 

Laenge 


jsr 

_LV0Write(a6) 

Funktion "Schreiben” 


bra 

loop 

auf ein Neues 

fertig 

move. 1 

d5,d1 ;RAW wieder schliessen 


jsr 

_LV0Close(a6) 



* Zum Schluss immer die Lib schliessen! 



move.1 

a6,a1 

;DOS-Lib-Basis 



move.1 

_SysBase,a6 

;Basis Exec 



jsr 

_LVOCloseLibrary(a6) 

;Funktion "Schliessen” 

f ini 

rts 


;Return zum CLI 


* Konvertiere 

d2.1 in ASCII-String ab (a0) 


hex 






moveq 

/2-1,dl 

;nur fuer 2 Nibble 

(von 8) 

next 

rol. 1 

/4,d2 

;hole 1 Nibble 



move.1 

d2,d3 

;nach d3 retten 



and.b 

/$0f,d3 

jmaskiere es 



add.b 

/48,d3 

;in ASCII wandeln 



cmp. b 

/58,d3 

;ist es >9 ? 



bcs 

out 

;wenn nicht 



addq.b 

/7,d3 

;sonst muss es A-F 

sein 

out 

move.b 

d3,(a0)+ 

;1 Zeichen abspeichern 


dbra 

dl ,next 

;next nibble 



rts 




* Datenbereich 




dosname 

de. b 

’dos.library’,0 




cnop 

0,2 



narae 

dc.b 

'RAW:40/100/580/80/Stop 

mit x',0 



0,2 


cnop 
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buffer ds.b 8 

cnop 0,4 

hbuf ds.b 10 


Bild 5.3: So erfaßt man auch die Funktionstasten 


Auch auf ein Gerät greifen wir wie auf einen File zu, müssen das Device also mit Open 
öffnen und später auch wieder schließen. Die zugehörigen DOS-LVOs finden Sie zu 
Anfang des Listings. Zum Öffnen müssen wir den Namen des Gerätes (des Files) über¬ 
geben und den Access Mode. In den Include-Files findet man die Equates 

M0DE_0LDFILE EQU 1005 
MODE_NEWFILE EQU 1006 


Gemeint ist damit, ob man auf eine schon existierende Datei zugreifen oder eine neue 
anlegen will. Da wir wissen (hoffen), daß RAW: existiert, wählen wir 1005. Unter 
»name« kommt nun die große Überraschung: 

name dc.b 'RAW:40/100/580/80/Stop mit x’,0 


Das reicht, um das Gerät RAW: zu öffnen. Gleichzeitig schaffen wir damit ein Window 
mit diesen Eigenschaften: 


40/100: 

580: 

80: 

Stop mit x: 


linke,obere Ecke (x,y in Bildschirmpunkten) 
Breite des Windows 
Höhe des Windows 
Window-Titel 


Die Funktion gibt wie üblich eine Handle zurück, die wir sowohl für die Eingabe als 
auch für die Ausgabe benutzen können. Das läuft nun wieder über die schon bekannten 
Funktionen Read und Write. Bei Read müssen Sie aufpassen. Auch wenn Sie als Länge 
3 angeben, werden für die Funktionstasten 3 Reads erforderlich, sprich auch die Länge 
1 tut es. 


Nach dem Lesen eines Zeichens folgt 

cmp.b /'x',buffer ;Zeichen = ’x' ? 

beq fertig ;venn ja 

und damit hätten wir unser erstes »IF THEN«. Im Klartext heißt das: Vergleiche (cmp 
= compare) die Konstante x mit dem ersten Byte im Puffer. Bei Übereinstimmung 
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springe zum Label »fertig« (branch if equal = springe wenn gleich). Soll auch heißen: 
Unser Programm läuft in einer Schleife, bis ein x eingegeben wird. 

Die folgenden Zeilen bereiten die Hex-Wandlung vor. Das Unterprogramm hex er¬ 
wartet ein Langwort in d2. Es legt das Ergebnis im Puffer hbuf ab. 


5.3 Bit-Schieben muß sein 

Das Unterprogramm zeigt recht gut, daß man in Assembler oft auf Bit-Ebene arbeiten 
sollte. Damit läßt sich zum Beispiel die Hex-Konvertierung wesentlich einfacher lösen, 
als mit der klassischen Methode (fortlaufende Division durch 16). Sie werden bei der 
Gelegenheit auch sehen, warum die Hex-DarStellung so vorteilhaft ist. Ein Beispiel: 
Das Langwort besteht aus den 4 Byte des Inhalts AA, BB, CC, DD. Ich sehe sofort, daß 
im höherwertigen Wort AABB und im niederwertigen CCDD steht. In dezimal 
(2864434397) dürfte das schwerfallen. 

53.1 Ein Hex-Konverter 

Das Problem der Routine »hex« ist nun, daß Sie tatsächlich ASCII-Zeichen ausgeben 
muß. Hat dort ein Digit den Wert Null, muß ich den ASCII-Code 48 (dezimal) aus¬ 
geben, um die »0« auf dem Schirm zu sehen. Das klappt ganz gut bis zur Neun (57), 
doch für 10 muß ich hex »A« drucken, und das hat den ASCII-Code 65, B hat 66 usw. 
Diese Lücke zwischen »9« und »A« müssen wir also überprüfen. Zweites Problem: Die 
Hex-Zahl sei $12345678 ($ heißt hex). $1 ist ein Nibble (Halb-Byte), das im Register 4 
Bit belegt (0001). Natürlich muß ich $1 zuerst ausgeben, doch dafür muß ich $1 auf den 
Platz von $8 bringen, weil im Puffer das Zeichen (nach der Umwandlung in die 
ASCII-1) vorn stehen muß. Das Byte hat aber 8 Bit, 4 übertrage ich, die übrigen 4 Bit 
haben Werte, die nur stören, folglich muß ich sie ausblenden. Damit ergibt sich folgen¬ 
der Ablauf: 

1. Das Nibble $1 auf den Platz von $8 bringen 

2. Dort die übrigen 4 Bit des Bytes auf Null setzen 

3. Das Nibble in ASCII wandeln 

4. Das Zeichen im Puffer ablegen 

5. Wiederhole 1. bis 4. mit den Nibbles $2, $3...$8 

Dazu eine Anmerkung: das Unterprogramm ist universell und kann auch Lang¬ 
worte konvertieren. Weil ich hier aber nur ein Byte (das höchstwertigste Byte!) 
(zwei Nibbles) ausgeben will, lasse ich die Schleife nur bis 2 -1 laufen. 

Schritt 1 wird mit dem ROL-Befehl erledigt (Rotate Left). Wir benutzen von ROL die 
Syntax 


ROL /4,d2 
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Das heißt, rotiere den Inhalt von d2 um 4 Bit nach links. Und was heißt nun rotieren? 
Nehmen wir an, in den d2 stehen diese 32 Bit 

vorher 1111 0000 0000 0000 0000 0000 0000 0000 

nach ROL #4 0000 0000 0000 0000 0000 0000 0000 1111 

Das heißt, die Bits werden nach links geschoben, und die Bits, die dann ganz links 
»herausfallen«, werden rechts wieder eingespeist. Anders sähe es beim ASL-Befehl 
(Shift left, schiebe nach links) aus. Da wird auch nach links geschoben. Rechts werden 
Nullen eingespeist und links fallen die Bits heraus. Nun, wir haben ROL gewählt, und 
damit unser Ziel erreicht. Das Nibble (so nennt man ein Halb-Byte), das vorher ganz 
links stand, steht nun ganz rechts. 

Unsere Schleife soll zweimal durchlaufen werden, folglich muß ich vorab (wegen 
des -1) den Schleifenzähler Dl mit 1 (2-1) laden. Nun erfolgt das berühmte ROL. 
Danach steht das Nibble am richtigen Platz, aber ausgeben kann ich leider nicht diese 
4 Bit alleine, ich brauche ein Byte für ein ASCII-Zeichen, also 8 Bit. 


5.3.2 Die Sache mit den Masken 

Die 4 Bit links von meinem Nibble haben aber einen Wert, und der muß weg (genauer: 
die 4 höherwertigen Bits des Bytes müssen 0000 werden). Das geschieht über die 
Maske $F mit »andi.b #$0F,d3«. Beispiel: 

in d3 steht 1011 1010 

AND Maske 0000 1111 

ergibt 0000 1010 

Das Verfahren lebt davon, daß logisch UND nur dann wahr (1) ergibt, wenn alle Ein¬ 
gangsgrößen wahr sind. In Assembler wirkt UND (and) Bit für Bit. Nachdem wir so 
den reinen Zahlenwert (0..15 dezimal) isoliert haben, beginnt die Konvertierung in 
ASCII. 0 bis 9 (als Zahl) kann direkt in 0 bis 9 (als ASCII-Zeichen) umgesetzt werden, 
das sind die ASCII-Codes 48 bis 57. Das heißt aber auch, 48 müssen wir mindestens 
addieren. Nun vergleichen wir D3 gegen 58 (also eine hex 10, die man als A ausgeben 
muß). Ist die Zahl <10 (also 0 bis 9) kann alles so bleiben, es geht zur Ausgabe. 
Andernfalls müssen wir noch die Lücke in der ASCII-Tabelle (65 für A-58 = 7) 
addieren. 


An dieser Stelle ein Hinweis. Man sieht manchmal den Weg, daß erst geprüft wird, ob 
der Wert zwischen 0 und 9 liegt und dann im zweiten Test, ob es ein Wert zwischen 10 
und 15 ist. Diese Methode ist O.K., wenn die Zeichen aus einer Eingabe stammen, wo 
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ja der User auch ungültige Zeichen (nicht 0..9, A...F) eintippen kann. Wir holen hier 
aber Zahlen aus einem Register, da so etwas nicht drin stehen kann! 

Die Befehle CMP und BCS hatten wir ja schon. Warum aber BCS? Ja eigentlich nur, 
um Ihnen zu zeigen, was andere Leute so schreiben (und denken müssen), die von 
CPUs kommen, die nicht so komfortabel wie der 68000 sind. Ein Vergleich wirkt auf 
die Flags wie eine Subtraktion. Bei einem »Borgen« wird auch das Carry-Flag gesetzt. 
Das ist aber der Fall, wenn D3 > 58 ist. 


5.4 Die Mehrfachverzweigung 

Nun ist es ja üblich, daß auf den Druck einer Funktionstaste hin ein Programm etwas 
mehr tut, sprich eine Routine aufruft. Das können sehr komplizierte Programmteile 
sein; wir wollen aber das Prinzip üben in der Art von 

IF Fl THEN GOTO ... 

IF F2 THEN GOTO .... 

usw. 

Die aufgerufene Routine soll auch nur »Hier ist Fl, 2 usw.« ausgeben, und damit nicht 
so viel zu tippen ist, schon bei F4 enden. Bild 5.4 zeigt die Lösung. 


opt 1- 


;nicht linken! 


* F2 Funktionstasten lesen und agieren 


include 

OpenDos.i 


_LV00pen 

equ -30 


_LVOClose 

equ -36 


move.1 

/name,dl 

;Name von RAH: 

move.1 

/I005,d2 

;Status = gibt es 

jsr 

_LV00pen(a6) 

;nun oeffnen 

move.1 

d0,d5 

[Handle merken 

tst.l 

d0 

;Fehler? 

beq 

f ini 

;venn ja, abbrechen 

lea. 1 

buffer,a3 

[Adresse des Puffers 

loop jsr 

GetKey 

[Lese Taste 

cmp.b 

/$9B,(a3) 

[Funktionstaste? 
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bne 

loop 

wenn nicht 


jsr 

GetKey 

sonst lese Code 


cmp. b 

«30,(a3) 

Taste Fl ? 


beq 

Fl 

wenn ja 


cmp .b 

«31, (a3) 

F2 ? 


beq 

F2 

wenn ja 


cmp .b 

«32, (a3) 

F3 ? 


beq 

F3 

wenn ja 


cmp. b 

«33, (a3) 

Taste F4 


beq 

F4 

wenn ja, fertig 


bra 

loop 


Fl 

lea.l 

f1_text,a0 ;Adresse Text 


bsr 

print 

drucken 


bra 

loop ;auf ein Neues 

F2 

lea.l 

f2_text,a0 ;Adresse Text 


bsr 

print 

drucken 


bra 

loop 

auf ein Neues 

F3 

lea. 1 

f3_text,a0 

[Adresse Text 


bsr 

print ;drucken 


bra 

loop 

auf ein Neues 

F4 

move. 1 

d5,d1 

RAH wieder schliessen 


jsr 

_LV0Close(a6) 


* Zum 

Schluss 

immer die Lib schliessent 



move. 1 

a6,a1 ; 

DOS-Lib-Basis 


move. 1 

_SysBase,a6 ;Basis Exec 


jsr 

_LV0CloseLibrary(a6) [Funktion "Schliessen” 

f ini 

rts 

[Return zum CLI 

GetKey 

move. 1 

d5,d1 ; 

von RAH lesen 


move.l 

a3,d2 ; 

in diesen Puffer 


move. 1 

/1,d3 ; 

1 Zeichen 


jsr 

_LVORead(a6) [Lesen aufrufen 


rts 



print 

clr. 1 

d3 



move. b 

(a0)+,d3 [Laenge 


move.1 

d5, dl 



move.1 

a0,d2 



jsr 

_LV0Write(a6) 

[Funktion "Schreiben” 


rts 




* Datenbereich: 


dosname dc.b 'dos.library’,0 
cnop 0,2 
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name 

de. b 

'RAW:40/100/580/80/Stop mit F4’,0 


enop 

0,2 

f1_text 

dc.b 

8,'Hier Fl ' ,10 


enop 

0,2 

f2_text 

dc.b 

8,'Hier F2’,10 


enop 

0,2 

f3_text 

de. b 

8,'Hier F3’,10 


enop 

0,2 

buffer 

ds. b 

8 


enop 

0,4 

hbuf 

ds .b 

10 


Bild 5.4: Verzweigung mit vielen IF THEN 


5.5 Lösung 1: Mit vielen IF THEN 

Ich glaube, das Programm muß ich nicht mehr groß erklären, aber jedes Programm hat 
einen Sinn. Notfalls kann es nämlich als abschreckendes Beispiel dienen, und das soll es 
auch. Stellen Sie sich vor, ein Programm mit 100 Kommandos oder mehr würde so 
arbeiten. Das wäre ein Umstand und ein Spaghetti-Codeü 

Neu ist nur, daß ich jetzt auf $9B prüfe und im Fall »keine Sondertaste« gleich auf das 
nächste Zeichen warte. Weil ich aber im Fall $9B noch eine Taste lesen muß, habe ich 
das Lesen in das Unterprogramm »GetKey« verlagert. 


5.6 Lösung 2: ON X GOSUB in Assembler 

Viel eleganter löst man so etwas mit einem »ON X GOSUB«. Dazu müssen wir zwar 
wieder einmal den Schwierigkeitsgrad etwas steigern, aber wenn Sie das gelernt haben, 
ist eigentlich schon fast alles gelaufen. Jedes Programm besteht nämlich aus einer 
Hauptschleife, in der es auf Kommandos wartet. Die Kommandos werden interpretiert 
und die passenden Unterprogramme aufgerufen. Danach geht es weiter in der Haupt¬ 
schleife. In BASIC sähe das so aus: 

10 INPUT KOMMANDO 

20 ON KOMMANDO GOSUB 100,200,300, _ 

30 GOTO 10 
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Wie das in Assembler aussieht, zeigt Bild 5.5. 



opt 

1- 

;nicht linken! 

* F3 

ON Funktionstasten GOSUB 



include 

OpenDos.i 


_LV00pen 

equ -30 


_LVOClose 

equ -36 



move.1 

/name,dl 

;Name von RAW: 


move.1 

/1005,d2 

;Status = gibt es 


jsr 

_LV00pen(a6) 

;nun oeffnen 


move.1 

d0,d5 

;Handle merken 


tst. 1 

d0 

;Fehler? 


beq 

f ini 

;wenn ja, abbrechen 


lea.l 

buffer,a3 

;Adresse des Puffers 

loop 

jsr 

GetKey 

;Lese Taste 


cmp.b 

/$9B,(a3) 

;Funktionstaste? 


bne 

loop 

;wenn nicht 


jsr 

GetKey 

;sonst lese Code 


move.b 

(a3),d0 

;Code -> d0 


ext .w 

d0 

;auf Wort erweitern 


sub .v 

«30, d0 

;Code in 0..3 


asl .v 

/2,d0 

;mal 4 


lea. 1 

table,a0 

;Zeiger auf Tabelle 


move. 1 

0(a0,d0.w),a0 

;Adresse -> a0 


jsr 

<a0) 

;Routine aufrufen 


bra 

loop 

;bis F4 kommt 

Fl 

lea.l 

fl text,a0 

;Adresse Text 


bsr 

print 

;drucken 


rts 



F2 

lea.l 

f2 text,a0 

;Adresse Text 


bsr 

print 

;drucken 


rts 



F3 

lea. 1 

f3 text,a0 

;Adresse Text 


bsr 

print 

;drucken 


rts 



F4 

move. 1 

(sp)+,d0 

;Ki11 Return Adress 


move. 1 

d5,d1 

;RAW wieder schliessen 
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jsr _LVOClose(a6) 

* Zum Schluss immer die Lib schliessen! 



move.1 

a6,a1 

;DOS-Lib-Basis 


move.1 

_SysBase,a6 

;Basis Exec 


jsr 

_LV0CloseLibrary(a6) 

;Funktion "Schliessen 1 

f ini 

rts 


jReturn zum CLI 

GetKey 

move.1 

d5, dl 

;von RAW lesen 


move.1 

a3,d2 

;in diesen Puffer 


move.1 

/I ,d3 

;1 Zeichen 


jsr 

_LV0Read(a6) 

;Lesen aufrufen 


rts 



print 

clr.l 

d3 



move.b 

(a0)+,d3 

;Laenge 


move.1 

d5,d1 



move.1 

a0, d2 



Jsr 

_LV0Write(a6) 

;Funktion "Schreiben” 


rts 



* Datenbereich 



table 

de. 1 

Fl 



de. 1 

F2 



de. 1 

F3 



de. 1 

F4 


dosname 

dc.b ’ 

dos.library’, 0 



enop 

0,2 


name 

de. b 

'RAH:40/100/580/80/Stop 

mit F4’,0 


enop 

0,2 


f1_text 

de. b 

8,'Hier FT,10 



enop 

0,2 


f2_text 

dc.b 

8,'Hier F2’,10 



enop 

0,2 


f3_text 

dc.b 

8,'Hier F3’,10 



enop 

0,2 


buffer 

ds. b 

8 



enop 

0,4 


hbuf 

ds .b 

10 



Bild 5.5: ON X GOSUB in Assembler 
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Den Anfang des Listings kennen Sie schon fast. Nur wird hier der Code der Funktions¬ 
tasten (das Byte nach $9B) durch Subtraktion von $30 in die Zahlen 0 bis 9 gewandelt; 
so steht er dann im Register DO. Der Einfachheit halber bearbeiten wir auch hier nur 
die Funktionstasten Ul], [ÜD, HEI und [F4], also 0,1, 2 und 3 in DO. Bitte beachten Sie, 
daß alle Tests fehlen (es geht um das Prinzip!), daß bei Betätigung aller anderen 
Tasten das Programm also abstürzt. Wir wollen ein »ON DO GOSUB« realisieren und 
brauchen dazu natürlich zuerst vier Unterprogramme, die hier wieder Fl, F2, F3 und 
F4 heißen. Diese Unterprogramme sind trivial. Sie geben nur die Meldungen »hier 
ist...« aus. Nun betrachten wir das Listing wieder von unten. Da steht die Marke 
»table«, und das, genau das, ist das Geheimnis unseres »ON X GOSUB«. 

Für Mehrfachverzweigungen braucht man in Assembler eine Sprungtabelle. Diese 
Tabelle ist eine Liste mit den Adressen der Unterprogramme. Das Erstellen der 
Tabelle ist recht einfach. Schreiben Sie für jede Adresse 

dc.l Label 

wobei für Label die Marke (die symbolische Adresse) des jeweiligen Unterprogramms 
einzutragen ist. Wichtig ist die Reihenfolge. Wir haben hier die Zuordnung 

Taste _ Routine 

F-Taste 1 Fl 

F-Taste 2 F2 

F-Taste 3 F3 

Die Reihenfolge der Tasten muß sich in der Reihenfolge der Einträge (so nennt man 
das) der Tabelle wiederholen. Die Unterprogramme selbst können in beliebiger 
Reihenfolge im Listing stehen. Es besteht also eine enge Zuordnung zwischen den 
Kommandos (hier den Funktionstasten) und der Sprungtabelle. Deshalb kann man aus 
den Kommandos die zugehörige Adresse berechnen. Eine Adresse belegt immer 4 
Byte, also kann unsere Tabelle zum Beispiel so im Speicher stehen: 

Label _ Adresse 

Fl 1000 

F2 1004 

F3 1008 

Unser Kommando (in DO) kann sein: 

0, 1 oder 2 

0, 4 oder 8 

1000, 1004 oder 1008 


Wert 

das mal 4 ergibt 
und das plus 1000 
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So einfach ist das also. Multiplizieren wir nun DO mit 4. Dafür hat der 68000 natürlich 
auch einen speziellen Befehl (MULU), aber genau den nehmen wir hier nicht. Ein 
anständiger Assembler-Programmierer wird nämlich bei einer Multiplikation mit 2 
oder 4 oder 8 oder 16 (Sie merken es: bei jeder 2er-Potenz) sofort hellhörig und greift 
auf einen Befehl zu, der das viel schneller erledigt. Hier heißt dieser Befehl 

ASL Arithmetic Shift Left 

»ASL #l,d0« zum Beispiel schiebt alle Bits in DO um eine Stelle nach links. Die Wir¬ 
kung ist die gleiche wie die im Dezimalsystem, wo Sie durch Linksschieben der Zahlen 
(und Festhalten des Kommas) mit 10 multiplizieren. Hier sind wir aber im dualen 
Zahlensystem, womit sich nur eine Multiplikation mit 2 ergibt. Schieben wir aber um 
zwei Stellen, so hätten wir schon unser »mal 4«. Das Ergebnis müssen wir auf den Be¬ 
ginn der Tabelle addieren. Deren Startadresse beschaffen wir uns mit »lea table,a0«. 
Nun kommt ein ganz wilder Befehl, nämlich 

move.l 0(a0,d0.w),a0 

Wir benutzen die Adressierungsart »ARI mit Index und Offset«. Nur »Index« gibt es 
leider nicht, also setzen wir das Offset zu Null. Demnach errechnet sich die effektive 
Adresse als die Summe von aO und dO. Die müssen wir nun in das Zielregister 
»moven«, und da nehmen wir gleich wieder aO. So etwas ist beim 68000 erlaubt, und 
weil es schön »tricky« aussieht, schreibt es auch jeder so. A0 zeigt nun also auf die 
Adresse des zugehörigen Unterprogramms, und das können wir nun schlicht mit 
»jsr (aO)« aufrufen. Nach dem »jsr« kehrt das Programm zum dem »jsr« folgenden 
Befehl zurück. Der heißt »bra loop«, also wieder von vorn mit dem nächsten 
Kommando. 

Die Ausnahme von dieser Regel finden Sie im Unterprogramm »F4«. Dieses Unter¬ 
programm ist gar keins, es wird zwar mit JSR aufgerufen, es endet aber nicht mit RTS. 
Folglich müssen wir die noch auf dem Stack befindliche Return-Adresse entfernen. Die 
Amerikaner sagen dafür so schön »Kill Return Address«. Wir erledigen das hier mit 
dem Befehl »move.l (sp) + ,d0«. Das ist zulässig, weil in diesem Fall DO nicht mehr 
benötigt wird. Es hat sich aber auch die folgende Schreibweise eingebürgert: 

move.l (sp)+,(sp) 

Damit wird die Return-Adresse vom Stack geholt und gleich wieder auf den Stack 
geschrieben. Wegen des » + « hat sich auch der Stackpointer geändert; der Zweck ist 
also erreicht. Natürlich wäre auch ein »addq.l #4,sp« korrekt, aber einige Leute haben 
so ihre speziellen Methoden, um eine Aktion wie »Kill Return Address« herauszu¬ 
stellen. 
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5.7 Lösung von CASE X OF 

Ist doch ganz einfach, oder? Es ist Ihnen zu einfach? Nun gut, machen wir die Sache 
etwas komplizierter. Unser schöner Kommando-Interpreter hat einen Nachteil. Die 
Kommandos müssen in der Reihenfolge von F-Tasten-Codes auftreten. Auch andere 
Folgen, wie 1 bis 9 oder A bis M sind denkbar, es muß aber immer eine Folge sein. Sie 
wissen jetzt, warum manche Leute ein Menü anbieten der Art 

1 = Eingabe 

2 = Rechnen 

3 = Stoppen 

Das merkt sich schlecht, besser wäre doch 

E = Eingabe 
R = Rechnen 
S = Stoppen 


5.8 Arbeiten mit zwei Tabellen 

Das Prinzip ist natürlich wieder ganz einfach. Es gibt zwei Tabellen. In der ersten 
Tabelle stehen die »Keys« (die erlaubten Tasten oder Kommandos), in der zweiten die 
Adressen der zugehörigen Routinen. So muß man doch nur den Key in der ersten 
Tabelle suchen und aus seiner Platznummer in dieser Tabelle einen Zeiger auf den 
richtigen Platz in der Adreßtabelle errechnen. Da kann man dann die Adresse heraus¬ 
holen und ab geht’s. 

Diesmal soll unser Programm aber wasserdicht sein. Folglich muß der Fall »nicht 
gefunden« abgefangen werden. Wir wollen auch den User nicht zwingen, immer die 
Shift-Taste zu betätigen. Deshalb sollen Groß- und Kleinbuchstaben gleich behandelt 
werden. Schließlich soll das Programm universell sein, sprich: Es muß mit minimalem 
Aufwand möglich sein, Funktionen hinzuzunehmen oder zu ändern. 

Nun denn, hier ist Bild 5.6 mit dem Listing. 
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opt 

1- 

;nicht linken! 

* F4 

CASE X 

OF 



include 

OpenDos.i 


_LV00pen 

equ -30 


_LVOClose 

equ -36 



move. 1 

/name,dl 

;Name von RAW: 


move. 1 

/1005,d2 

;Status = gibt es 


jsr 

LV00pen(a6) 

;nun oeffnen 


move. 1 

d0,d5 

[Handle merken 


tst. 1 

d0 

;Fehler? 


beq 

fini 

;wenn ja, abbrechen 


lea 

buffer,a3 

[Adresse des Puffers 

loop 

jsr 

GetKey 

[Lese Taste 

* Key 

in Tabelle gueltiger Keys suchen 



move. b 

(a3),d0 

[Code -> d0 


bclr 

/5,d0 

[force uppercase 


lea 

keys,a0 

;Tab. gueltige Keys 


move 

/count,dl 

[deren Anzahl 

search 

cmp .b 

(a0)+,d0 

[Key hier? 


dbeq 

dl,search 

;wenn nicht 


tst 

dl 

[Key gefunden? 


bmi 

loop 

;wenn nicht 


* Rechne Adresse zu Key 

* - 


neg 

dl 

;sub dl,/count 

add 

/count,dl 

[ergibt Platz-Nr. von Key 

lsl 

/2, dl 

[die mal 4 

lea 

table,a0 

[Zeiger auf Tabelle 

move.1 

0(a0,dl),a0 

[Adresse -> a0 

jsr 

(a0) 

[Routine aufrufen 

bra 

loop 

[bis F4 kommt 

Eingabe lea 

E_text,a0 

[Adresse Text 

bsr 

print 

;drucken 

rts 



Rechnen lea 

R_text,a0 

[Adresse Text 

bsr 

print 

;drucken 

rts 



Stoppen move.l 

(sp)+,d0 

[Kill Return Adress 
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move. 1 

d5,d1 

RAH wieder schliessen 


jsr 

_LV0Close(a6) 


* Zum Schluss 

immer die Lib schliessen! 



move. 1 

a6 ,a1 

DOS-Lib-Basis 


move. 1 

_SysBase,a6 

Basis Exec 


jsr 

_LVOCloseLibrary(a6) 

Funktion "Schliessen" 

f ini 

rts 

;Return zum CLI 

GetKey 

move.1 

d5, dl 

von RAH lesen 


move.1 

a3,d2 

in diesen Puffer 


move.1 

/I ,d3 

1 Zeichen 


jsr 

_LV0Read(a6) 

Lesen aufrufen 


rts 



print 

move.1 

a0 ,a1 

kopiere Textzeiger 

Pi 

addq.1 

t\ , a 1 

+ 1 


cmp. b 

/0,(al) + 

Null-Byte? 


bne 

P 1 

wenn nicht 


sub.l 

a0,a1 

= Textlaenge 


move.1 

al ,d3 ;Laenge 


move.1 

d5, dl 

Handle 


move.1 

a0,d2 

Adresse Text 


jsr 

_LVOWrite(a6) ;Funktion "Schreiben” 


rts 



* Datenbereich 



table 

de. 1 

Eingabe 



de. 1 

Rechnen 



de. 1 

Stoppen 


keys 

de. b 

* E’,’R’,'S’ 


count 

equ 

*-keys 



enop 

0,4 


dosname 

dc.b 

'dos.library',0 



enop 

0,2 


name 

dc.b 

’RAW:40/100/580/80/Stop mit S’,0 


enop 

0,2 


E_text 

dc.b 

'Hier Eingabe',10,0 



enop 

0,2 


R_text 

dc.b 

'Hier Rechnen’,10,0 



enop 

0,2 


buffer 

ds. b 

8 



enop 

0,4 


hbuf 

ds. b 

10 



Bild 5.6: Menü-Technik universell 
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Diesmal beginne ich am Anfang. Wir lesen wieder eine Taste, jetzt aber nur eine, weil 
wir keine Funktionstasten erwarten, bzw. diese ignorieren werden. 

Force Uppercase 

Nachdem das Zeichen in das Register dO geladen wurde, soll es in einen Großbuch¬ 
staben gewandelt werden, falls es nicht schon ein Großbuchstabe ist. Force Uppercase 
nennen das die Fachleute in neudeutsch. 

Wenn Sie einmal auf eine ASCII-Tabelle schauen, wird Ihnen sicherlich auffallen, daß 
sich die Klein- und die Großbuchstaben immer um 32 unterscheiden. 2 hoch 5 ist aber 
auch 32, sprich, im Fall von Kleinbuchstaben ist Bit 5 gesetzt. Folglich wird ein guter 
(sind Sie doch) Assembler-Programmierer nicht sagen »wenn der Code > Z ist, dann 
subtrahiere 32«, sondern er sagt einfach »lösche Bit 5«. Auch dafür kennt der 68000 
einen Befehl, nämlich »BCLR« (Bit Clear). 

bclr /5,d0 

löscht Bit 5 (setzt es auf 0) im Operanden (hier dO). 

An dieser Stelle sind wir also soweit, daß wir prüfen können, ob der User E, R oder S 
eingegeben hat. Wenn Sie nun bitte einmal auf das Ende des Listings schauen: Da gibt 
es eine kleine Tabelle für diese drei Zeichen. 


5.9 Location Counter und Equates 

Darunter aber steht 

count equ *-keys 

Wow, das ist ein Ding! Fangen wir mit »equ« an. »equ« ist ein sogenanntes Equate 
(englisch), Sie lesen es aber am besten als »equal« = gleich). 

Die Assembler-Direktive von zum Beispiel 

Anton equ 4711 

bedeutet, ab jetzt kann man anstatt 4711 auch Anton sagen. »JSR Anton« wäre dann 
ein gültiger Befehl. Prinzipiell ist das nichts weiter als reine Textverarbeitung. Der As¬ 
sembler setzt einfach nachher für Anton immer eine 4711 ein. Wir müssen Anton aber 
jetzt auch als Konstante ansehen. Falls Sie Pascal können, betrachten Sie das »equ« wie 
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»const«, als C-Programmierer wie ein »#define«. Daher dürfen wir in diesem Pro¬ 
gramm auch beim Bezug auf »count« nicht »count« schreiben, »#count« ist Pflicht! 

Das nächste »Wow« ist der »*«. Als erstes Zeichen in einer Programmzeile ist er ganz 
harmlos und bedeutet nur »Kommentar folgt«. Als Operand heißt er Location Counter 
(LC). Sie wissen, daß Befehle, je nach Anzahl und Art der Operanden verschieden viel 
Speicher belegen. Deshalb führt der Assembler einen Zähler, der sozusagen die bis zu 
jedem Befehl verbrauchten Bytes mitzählt. In diesem Sinn entspricht der LC dem PC 
(Programm Counter), mit dem nachher die CPU ein Programm verfolgt. Der Unter¬ 
schied: Der LC wird auch durch Assembler-Direktiven inkrementiert, wie zum Beispiel 
»dc.b «, das ja auch Bytes (mit Daten) belegt. 

In der Assembler-Syntax heißt nun aber der LC nicht LC, sondern »*«. Betrachten wir 
ein Beispiel. Im Listing hätte der LC zu Beginn der Zeile mit der Marke »keys« den 
Wert 100. Die Anweisung »dc.b E, R, S « läßt ihn auf 100 (für E), stellt ihn dann auf 
101 ( für R) und schließlich auf 102 (für S). 

Die nächste Zeile mit der Marke »count« sieht den LC als 103. An dieser Stelle erfolgt 
aber ein Equate. Da in Equates auch Ausdrücke erlaubt sind, hat 

count equ *-keys 

die Wirkung von 

count = LC ~ keys 

Das in Zahlen ergibt 

count = 10J-100 

Damit hätten wir unsere symbolische Konstante 3. Warum habe ich da nicht einfach 
»count equ 3« geschrieben? Antwort: Das machen nur Anfänger! 

Wenn wir nämlich später die Tabelle erweitern, können wir das tun, ohne die Zeile mit 
dem »equ« anfassen zu müssen. In jedem Assembler-Lauf (der muß dann eh sein) wird 
automatisch die richtige Anzahl eingesetzt. Außerdem: Tabellen können ganz schön 
lang sein, da kann man sich leicht verzählen. 
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5.10 Suchen mit DBcc 

Nun müssen wir den Key (steht immer noch in DO) in der Tabelle »keys« suchen. Die¬ 
sen Teil finden Sie unter »Suche Tasten-Code in Tabelle«. Das Problem: Auch »nicht 
gefunden« muß als gemeldet erkannt werden. Die Lösung ist eine DBcc-Schleife. Füh¬ 
ren Sie sich bitte immer vor Augen: 

DBcc dn.loop 

heißt: Verlasse die Schleife, wenn die Bedingung cc erfüllt ist, oder dn auf —1 gelaufen 
ist, sonst springe zu »loop«. 

Vorab wird mit »lea keys,a0« ein Zeiger auf den Beginn der Tabelle gestellt. Der 
Trick: Der Schleifenzähler Dl wird mit Count geladen (hier 3), eine DBcc-Schleife 
läuft aber im Grenzfall bis —1, hier also über vier Schritte. Das heißt, wenn die Schleife 
wegen des »eq« (»equal« bedeutet gefunden) im »dbeq« verlassen wird, kann Dl nicht 
negativ sein. Ist es negativ, kommt das »bmi Start« zur Wirkung (springe, wenn 
negativ). 

Unter »Suche Adresse zu Key« taucht nun das nächste Problem auf. In der DBcc- 
Schleife lief Dl ja rückwärts. Es hat also diese Werte im Fall von »gefunden von«: 

Key Dl 

1 3 

2 2 

3 1 

Ich brauche aber die Folge 0, 1, 2, um wieder auf die Adreßtabelle wie im vorigen Bei¬ 
spiel zugreifen zu können. Dieses ergäbe sich ganz einfach, wenn ich von Count Dl 
subtrahieren würde. (3—3 = 0, 3—2=1, 3—1 = 2). Leider erlaubt der 68000 den Befehl 
»sub dl,#count« nicht; wie soll er auch von einer Konstanten etwas subtrahieren? 

Da hilft die Anweisung 
neg dl 

Ich negiere dl. War es 3, dann wird es —3. Darauf addiere ich Count, ergibt 0. Alte 
Regel: Wenn man nicht subtrahieren kann, muß man eben den negativen Wert addie¬ 
ren. Den Rest hatten wir schon. Als kleinen Unterschied habe ich hier nun anstatt »asl« 
»lsl« genommen (»logical shift left«). Der Unterschied: ASL schiebt arithmetisch kor¬ 
rekt, würde also auch das Vorzeichen berücksichtigen, wenn wir eines hätten. Damit 
wären wir wieder an der Stelle angekommen, die das vorige Programm ausmachte. Mit 
»lea table,a0« zeigen wir auf die Adreßtabelle, und den Rest kennen Sie schon, fast... 
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Ein Blick auf die Texte zeigt Ihnen, daß ich die Längenbytes weggelassen habe. Statt- 
dessen sind alle Texte mit einem Null-Byte abgeschlossen. Diese Technik ist sehr prak¬ 
tisch, weil ich mich jetzt um die Textlänge (das Abzählen der Zeichen) überhaupt nicht 
mehr kümmern muß. Nun muß allerdings das Unterprogramm etwas mehr tun. 


Hinzugekommen sind diese Zeilen: 


print 

move.1 

a0,al 

kopiere Textzeiger 

Pi 

addq.1 

/I ,a1 

+1 


cmp.b 

tl, (al) + 

Null-Byte? 


bne 

Pi 

wenn nicht 


sub. 1 

a0,a1 

= Textlaenge 


In der kleinen Schleife wird einfach das Null-Byte gesucht. Die Routine fängt nur einen 
Fall nicht ab, nämlich daß der String leer ist (nur aus einem Null-Byte besteht). 

Wenn Sie nicht mit Unterprogrammen arbeiten, können Sie die Textlänge auch mittels 
des Location Counters zur Verfügung stellen. Das sähe dann so aus: 

Text_1 dc.b 'Das ist ein Text’ 

Len_1 equ #-Text_1 


Die Ausgabe dieses Textes sähe dann zum Beispiel so aus: 


move.l d5,d1 
move.l /Text_1,d 
moveq /Len_1,d3 
jsr _LV0Write(a6) 


;Handle 
[Adresse Text 
[Länge 

[Funktion "Schreiben” 


Beachten Sie auch hier bitte: »moveq« erweitert automatisch auf ein Langwort, be¬ 
grenzt aber die Textlänge auf 127 Zeichen. Darüber hinaus müßten Sie dann doch das 
etwas langsamere »move.l« nehmen. 
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Wissen Sie eigentlich, »wieviel Programm« ein professioneller Programmierer pro Tag 
schreibt? 6 (in Worten sechs) Zeilen pro Tag! Diese Zahl ergibt sich, wenn man den 
Gesamtaufwand an Tagen, beginnend bei der Problemanalyse über die ersten Vorent- 
würfe, das eigentliche Programmieren, das Testen, das Debuggen bis hin zur Doku¬ 
mentation addiert und dann die Programmzeilen durch diese Anzahl Tage dividiert. 

Dabei spielt die Programmiersprache keine Rolle. Es kommen immer diese sechs Zei¬ 
len dabei heraus. 

Nun kann man natürlich mit sechs Zeilen Pascal viel mehr Wirkung erzielen, als mit 
sechs Zeilen Assembler. Um so wichtiger ist es, gerade in der Assembler-Programmie¬ 
rung alle Möglichkeiten zur Rationalisierung der Arbeit auszunutzen. 


6.1 Strukturierung von Assembler-Programmen 

Die wirkungsvollste Methode ist die Strukturierung der Programme. Damit ist primär 
nicht »WHILE...WEND« und Ähnliches gemeint (ist auch vorteilhaft, siehe 6.1.1), son¬ 
dern die grundsätzliche Struktur des Programms. Im allgemeinen sieht doch ein Pro¬ 
gramm so aus: 

- Logo 

- Menü 

- Warten auf Eingabe 

- Reaktion auf die Eingabe 

Mit Logo ist das Bild gemeint, mit dem sich das Programm beim Start meldet. Dann 
werden dem Bediener die möglichen Funktionen des Programms in einem (Haupt-) 
Menü angeboten und auf eine Eingabe gewartet. Die Eingabe wird interpretiert und 
daraufhin die entsprechende Funktion aufgerufen. Im Ansatz hatten wir diese Technik 
im Kapitel 5 schon praktisch geübt. In BASIC sähe das so aus: 

100 PRINT "LOGO” 

200 PRINT "MENU” 

300 INPUT KEY 

400 0N KEY GOSUB 1000,2000,3000. 

410 GOTO LOGO 

In Assembler ändert sich daran prinzipiell nichts. In der typischen Schreibweise dieser 
Sprache könnte man schreiben: (»bsr« heißt »Branch to Sub Routine«, also GOSUB) 
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bsr 

logo 


bsr 

menu 


bsr 

eingabe 

;Warte auf Eingabe 

bsr 

rechne_adresse 


bsr 

adresse 

[Funktion aufrufen 

bra 

loop 



;Beginn der Unterprogramme 

Sie sehen, der wesentliche Ansatz ist die Gliederung in Unterprogramme. Diese Unter¬ 
programme rufen selbst wieder Unterprogramme auf, und auch die »Unter-Unter¬ 
programme« rufen gegebenenfalls nochmals Unterprogramme auf, und seien es nur 
Funktionen des Betriebssystems. Gerade letztere zeigen jedoch einige wichtige Eigen¬ 
schaften, die Unterprogramme haben sollten, nämlich: 

- universelle Verwendbarkeit und 

- klar definierte, einheitliche Schnittstelle. 

Ein gutes Beispiel sind die Routinen des oben gezeigten Rahmens. Es ist durchaus 
möglich, daß Sie zu einigen Punkten des Hauptmenüs Untermenüs anbieten müssen. 
Dann ist es doch sehr praktisch, wenn Sie dafür dieselben Unterprogramme wiederum 
benutzen können. 


6.1.1 Struktur in der Sprache 

Im Kapitel 4 hatte ich Ihnen ein Beispiel vorgestellt, das die Buchstaben von A bis Z 
druckt. Hier noch einmal der wesentliche Teil des Programms: 


lea buffer,a0 

move /25,d0 

move.b /'A’,d1 

loop move.b dl,(a0)+ 
addq XI,dl 

dbra d0,loop 


Bild 6.1: Drucken von A bis Z diskret geschrieben 


Was halten Sie nun von der folgenden Alternative? (Ich garantiere, wir sind immer 
noch in Assembler.) 
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for dl = f'k’ to /’Z' do 
move.b dl,(a0) + 
endfor 


oder: 


move f’k' ,d2 
while d2 le /’V do 
move.b d2,(a0)+ 
addq /I,d2 
endvhile 


Bild 6.2: Zwei Lösungen mittels Makros 


Bild 6.2 ist nur ein kleiner Auszug aus der Makro-Sprache guter Assembler. Wenn ich 
Ihnen jetzt noch sage, daß der daraus entstehende Code der gleiche ist, wie der aus der 
diskreten Lösung von Bild 6.1, dann wird Sie das Thema sicherlich interessieren. 


6.2 Makros 

Makro ist die Kurzform von Makro-Befehl. Makro selbst heißt so viel wie groß. Prinzi¬ 
piell ist ein Makro nur eine Zusammenfassung einer Gruppe von Einzelbefehlen, wie 
wir sie bisher kannten, unter einem neuen Namen. Man kann die Einzelbefehle auch 
Mikro-Befehle nennen. Leider ist die Makro-Sprache nicht genormt. Jeder Assembler 
hat da seine eigene Syntax, die des eben gezeigten GST-Assemblers ist sogar ziemlich 
ausgefallen. Ich bringe deshalb alle folgenden Beispiele in der Makro-Sprache der 
HiSoft-/Metacomco-Assembler (stimmen überein), die den »Makro-Dialekten« der 
meisten Assembler am ehesten entsprechen. Hier ein Beispiel: 

CALLEXEC macro 

move.l _SysBase,a6 

jsr _LV0\1(a6) 

endm 

Dieser Makro realisiert die Funktion CALLEXEC (Funktion der Exec-Library auf- 
rufen), wie wir sie schon kennen. Jeder Makro hat einen Namen, der im Label-Feld 
stehen muß, gefolgt von dem Schlüsselwort »macro«. Ein Makro endet mit dem Schlüs¬ 
selwort »endm«. Zwischen »macro« und »endm« kann eine beliebige Anzahl von 
Befehlen stehen. Ist der Makro einmal definiert, kann er beliebig oft mit seinem 
Namen aufgerufen werden. Innerhalb eines Makros dürfen auch die Namen anderer, 
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dann schon vorher definierter Makros, stehen. Ob und wie tief Makros so geschachtelt 
werden dürfen, lesen Sie aber besser in Ihrem Handbuch nach. 

Bild 6.3 bringt zwei Makros, so wie Sie sie einfach zu Beginn eines Programms tippen 
können. 


CALLLIB MACRO 

JSR \1(A6) 

ENDM 

LINKLIB MACRO 

MOVE.L \2,A6 
CALLLIB \1 
ENDM 


Bild 6.3: Zwei Makros, die man immer braucht 


Der Makro »CALLLIB« wie »Call Library« beinhaltet das Ihnen schon bekannte 
»jsr offset(aö)«. Wichtig ist hier, daß wir dem Makro einen Parameter übergeben müs¬ 
sen, nämlich den einzusetzenden String. Für solche Parameter haben Makros Variable. 
Beim GST-Assembler (demnächst verfügbar) dürfen dies Namen sein; meistens üblich 
sind aber Ziffern mit einem Schrägstrich oder (bei SEKA) einem Fragezeichen davor. 
Bei Metacomco sind auch noch die Buchstaben A bis Z erlaubt. Beachten Sie bitte, daß 
der Schrägstrich bei Metacomco und HiSoft ein »Backslash« (nach links gekippter 
Strich) sein muß. Solche Einschränkungen sind zwar unschön (das Zeichen gibt es nicht 
in jedem Editor) aber übliche Unsitte. Beim zweiten Makro haben Sie sicherlich schon 
erkannt, daß ein Makro einen anderen aufrufen darf. Dieser muß aber vorher definiert 
sein! Doch nun zur Praxis. 

Das Programm soll lediglich das schon bekannte Hallo ausgeben. Bild 6.4 zeigt die 
Lösung. Vergleichen Sie diese bitte mit Bild 4.1. aus Kapitel 4. 
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opt 

i- 

;nicht linken! 

_SysBase 

equ 4 

;Basis von Exec 

_LVOOpenLibrary 

equ -552 

[Library oeffnen 

LVOCloseLibrary equ -414 

[Library schliessen 

_LV00utput 

equ -60 

[DOS: Output-Handle holen 

_LV0Write 

equ -48 

; Ausgabe 

main move.l 

/dosname,al 

[Name der DOS-Lib 

moveq 

/0,d0 

[Version egal 

LINKLIB 

OpenLibrary,_SysBase 

;D0S-Lib oeffnen 

tst.l 

d0 

[Fehler? 

beq 

fini 

;venn Fehler, Ende 

move.1 

d0, DOSBase 

[Zeiger merken 

LINKLIB 

Output,_D0SBase 

[Hole Output-Handle 

print 

d0,/string,20 

[Text ausgeben 

move.1 

DOSBase,al 

[Basis der Lib 

LINKLIB 

CloseLibrary,_SysBase 

[Funktion "Schliessen” 

fini rts 


[Return zum CLI 

DOSBase dc.l 

0 


dosname dc.b 

’dos.library’,0 


cnop 

0,2 


string dc.b 

'Hallo lieber Leser!',10 


cnop 

0,2 



Bild 6.4: Ein Programm mit Makros 


Das sieht doch richtig gut aus. Was ist nun der Haken an der Sache? Es fehlen die 
Makros, die ich Ihnen mit Bild 6.5 vorstellen möchte. 


LINKLIB MACRO 

IFNE NARG-2 

FAIL - Makro LINKLIB: Nicht 2 Argumente - 

ENDC 

MOVE.L A6,-(SP) 

MOVE.L \2,A6 
JSR _LV0\1(A6) 

MOVE.L (SP)+,A6 
ENDM 
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MACRO 



IFNE 

NARG-3 


FAIL 

ENDC 

- Makro print: 

Nicht 3 Argumente - 

MOVE.L 

\1,D1 

;Ausgabe-Handle 

MOVE.L 

\2,D2 

;Address Text 

MOVEQ 

A3.D3 

jLaenge Text 

LINKLIB 

ENDM 

Write,_D0SBase 

;Funktion "Schreiben 


Bild 6.5: Die Makros zu Bild 6.4 


Den Makro LINKLIB finden Sie in ähnlicher Form unter vielen anderen in den 
Include-Files von Metacomco und HiSoft. Die Zeilen 

IFNE NARG-2 

FAIL - Makro LINKLIB: Nicht 2 Argumente - 

ENDC 

können Sie prinzipiell auch weglassen. Da Sie aber in den Include-Files häufig anzu¬ 
treffen sind (schauen Sie mal rein, es lohnt sich), sollte das aber doch erklärt werden. 
NARG ist eine Assembler-Variable und heißt »Number Arguments«. Diese Variable 
ist nur innerhalb eines Makros gültig (sonst Null) und hält die Anzahl der Parameter, 
mit denen der Makro aufgerufen wurde. 


6.2.1 Bedingtes Assemblieren 

Ob die Anzahl stimmt, ist eine andere Frage, aber das kann man prüfen. Dazu benutzt 
man eine zweite Eigenschaft guter Assembler, nämlich bedingtes Assemblieren. Hier¬ 
für gilt die generelle Form 

IFcc 

tue das, wenn cc true 
ENDC 

hier weiter, wenn cc false 

Die Bedingungen »cc« sind prinzipiell die gleichen, wie wir sie schon von den Branch- 
Befehlen her kennen. Die Einschränkung ist allerdings, daß immer nur ein Argument 
gegen Null verglichen werden kann. Will ich also prüfen, ob die Anzahl der Makro- 
Argumente (NARG) stimmt, und im Fehlerfall eine Warnung ausgeben, so muß ich sa¬ 
gen: 

wenn NARG minus 2 nicht gleich Null 
oder IFNE NARG-2 
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Sie brauchen diese Tests in aller Regel nicht durchzuführen, der Assembler meckert 
dann nur etwas später. Habe ich nämlich zum Beispiel in einem Makro die Zeilen 

print macro 

MOVE.L \1,D1 ;Ausgabe-Handle 

MOVE.L \2,D2 [Address Text 

und rufen diesen Makro auf mit 
print d4 

so entsteht daraus 

MOVE d4, Dl 
MOVE ,D2 

Bei der zweiten Zeile wird der Assembler mit Recht etwas monieren, der Fehler wird 
also erkannt. Die Lösung mit dem »IFcc« zeigt vielleicht die Herkunft des Fehlers 
besser. 

Nun hätten wir noch ein kleines Problem. Nehmen wir an, Sie hätten folgenden Makro 
geschrieben: 

nonsens macro 
loop move dl,d2 
bra loop 
endm 

Schreiben Sie nun in Ihrem Programm 

nonsens 

nonsens 

so wird der Makroprozessor daraus folgende Zeilen entwickeln: 


loop 

move 

dl ,d2 


bra 

loop 

loop 

move 

dl ,d2 


bra 

loop 


Spätestens beim zweiten »bra loop« wird der arme Assembler ins Schleudern geraten. 
Zu welchem »loop« soll er denn nun springen? Praktisch wird er mit einer Fehler¬ 
meldung aussteigen. Um so etwas zu vermeiden, gibt es nun in guten Assemblern 
immer eine Lösung. Die sinnvollste Art findet man zum Beispiel bei GST, wo man 
schreiben würde: 
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nonsens macro 

LOCAL loop 
loop move dl,d2 

bra loop 
endm 

Damit wird »loop« zur lokalen, also nur innerhalb des Makros gültigen Variablen er¬ 
klärt. In anderen Assemblern findet man die Form 

$n anstatt »loop« 

Für n ist eine Zahl zwischen 1-99 (oder 1-999) einzusetzen. Diese Zahl wird bei jedem 
Aufruf des Makros um eins hochgezählt. Wenn Sie mehrere Makros mit internen 
Labels verwenden, müssen Sie allerdings darauf achten, daß Sie mit unterschiedlichen 
und gegebenenfalls weit auseinanderliegenden Zahlen starten. Um noch einmal auf das 
Beispiel aus der Einleitung zurückzukommen, nämlich 

for d2 = /’A’ to /’Z‘ do 


endfor 

so ist des Rätsels Lösung ganz einfach, »for«, » = «, »to« und »endfor« sind Makros, 
»do« beispielsweise wird nur eine lokale Marke erzeugen, »for« wird d2 laden und 
»endfor« ein »dbra d2,marke« generieren. Eine andere Anwendung wäre diese: 

ret makro 

rts 
endm 

In diesem Fall wird der Makroprozessor immer nur für jedes »ret«, das in einem Text 
auftaucht, ein »rts« einsetzen. Sie können auf diese Art jeden Assemblerbefehl neu 
definieren. Nun kommt es aber noch schlimmer, nämlich hiermit: 

ret makro 

dc.b $C9 
endm 

»ret« heißt Return in Z80-Assembler. 

Für die Z80-Maschinensprache muß aber ein »ret« in »$C9« übersetzt werden. Sie 
können somit auf Ihrem Amiga in 68000-Assembler ein Programm in Z80-Assembler 
schreiben. So etwas nennt man Cross-Assembler. Möglich machen dies Makros. Nun 
wissen Sie auch, wie man einen neuen Computer in Assembler programmiert, wenn es 
für das gute Stück noch gar keinen Assembler gibt. 
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6.2.2 Nur Textverarbeitung 

Bei Makros handelt es sich um eine reine Textverarbeitung, die mit Assembler an sich 
herzlich wenig zu tun hat. Bild 6.6 bringt einen kleinen Auszug aus einem Programm, 
das den Makro PRINT definiert und ihn dann zweimal aufruft. 


PRINT 


macro 


movem. 1 

d0-d3/a6,-(sp) 

jsr 

LV00utput(a6) 

move.1 

d0,d1 

move.1 

\1.d2 

move.1 

\2,d3 

jsr 

_LV0Write(a6) 

movem.1 

(sp)+,d0-d3/a6 

endm 


PRINT 

/msgl,/lenl 

PRINT 

/msg2,/len2 


Bild 6.6: Ein Programmauszug mit Makros 


Nun ist jeder gute Assembler in der Lage, ein sogenanntes Assembler-Listing zu erzeu¬ 
gen. Ein Beispiel dafür bringt Bild 6.7. 


HiSoft GenAmiga Assembler 1.0 page 1 


4 

5 

6 

7 

8 
9 

10 

12 

1 ? 

14 0000001A +48E7F002 
14 0000001E +4EAEFFC4 
14 00000022 +2200 
14 00000042 +243C00000072 
14 0000002A +263C0000000D 
14 00000030 +4EAEFFD0 


PRINT macro 
movem.l d0-d3/a6,-(sp) 
jsr _LV00utput(a6) 

move.l d0,d1 
move.l \1,d2 
move.l \2,d3 
movem.l (sp)+,d0-d3/a6 
endm 

movem.l d0-d3/a6,-(sp) 
jsr _LV00utput(a6) 

move.l d0,d1 
move.l Zmsg1,d2 
move.1 /lenl,d3 
jsr _LV0Write(a6) 
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14 00000034 +4GDF400F 

15 

16 00000038 +48E7F002 
16 0000003C +4EAEFFC4 
16 00000040 +2200 

16 00000042 +243C00000072 
16 00000048 +263C00000012 
16 0000004E +4EAEFFD0 

16 00000052 +4CDF400F 

17 


movem.l (sp)+,d0-d3/a6 

movem.l d0-d3/a6,-(sp) 
jsr _LV00utput(a6) 

move.l d0,d1 
move.l /msg2,d2 
move.l /Ien2,d3 
jsr _LVOWrite(a6) 

movem.l (sp)+,d0-d3/a6 


Bild 6.7: Ein Assembler-Listing 


Im ersten Feld nach den Zeilennummern stehen die Adressen. Der Assembler beginnt 
normalerweise bei Null. Mit ORG kann man eine absolute Startadresse vorgeben. Das 
Beispiel beginnt bei 1A, weil ich hier nur einen Auszug darstelle. Im zweiten Feld ste¬ 
hen die »Op-Codes«, sprich das, was der Assembler aus den einzelnen Befehlen macht. 
Dies ist die hexadezimale Darstellung der Maschinensprache, die der 68000 letztlich 
nur versteht. Vor den Op-Codes sehen Sie hier immer ein Plus-Zeichen. Das ist kein 
Vorzeichen, sondern nur ein Symbol, das anzeigen soll, daß diese Befehle aus einer 
Makro-Entwicklung stammen. Hiermit wären wir beim interessanten Teil ange¬ 
kommen. Sie sehen recht deutlich, daß sich die 16er- und die 15er-Zeilen wiederholen 
(bei Makros werden die Zeilen nicht hochgezählt). Es sind nur andere Werte (msg2 an¬ 
statt msgl, len2 anstatt lenl) eingesetzt worden. Das heißt, mit Makros werden zwar 
die Quelltexte kürzer, der Objekt-Code hingegen wird um so länger, je häufiger ein 
Makro entwickelt wird. So ab dreifachem Aufruf lohnt es sich in der Regel, ein Unter¬ 
programm einzusetzen, sofern dies sinnvoll ist. Ein gutes Antibeispiel ist das folgende 
in Bild 6.8. 


FUNCDEF 

MACRO 


_LV0\1 

EQU 

FUNC_CNT 

FUNC_CNT 

SET 

ENDH 

FUNC_CNT-6 

FUNC_CNT 

SET 

4*-6 

FUNCDEF 

Supervisor 

FUNCDEF 

Exitlntr 


FUNCDEF 

Schedule 


FUNCDEF 

Reschedule 


Bild 6.8: Der Makro FUNCDEF 
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Mit diesem Makro werden die LVOs bei Metacomco entwickelt. Bei HiSoft hat man 
diesen Umweg gespart und gleich die Offsets hingeschrieben. Damit Sie den Sinn die¬ 
ses Makros verstehen, muß ich etwas vorwegnehmen: Die Library-Offsets sind immer 
negativ. Sie beginnen immer bei -30 und jeder Eintrag belegt 6 Byte (ob alle 6 genutzt 
werden, ist eine andere Frage (Antwort: nein). Der Makro addiert immer -6, deshalb 
wird bei -24 (4 * -6) begonnen. SET hat die gleiche Wirkung wie EQU, allerdings mit 
einem Unterschied: Mit SET kann einer Marke immer wieder ein neuer Wert zuge¬ 
wiesen werden. EQU ist wirklich eine Konstante im Sinn des Wortes. Den Rest dürften 
Sie verstehen, wenn ich Ihnen nun mit Bild 6.9 das Ergebnis von Bild 6.8 zeige. 


FFFFFFE8 

LVOSupervisor 

EQU 

FUNC_CNT 

FFFFFFE2 

FUNC CNT 

SET 

FUNC CNT-6 

FFFFFFE2 

LVOExitlntr 

EQU 

FUNC CNT 

FFFFFFDC 

FUNC CNT 

SET 

FUNC CNT-6 

FFFFFFDC 

LVOSchedule 

EQU 

FUNC CNT 

FFFFFFD6 

FUNC CNT 

SET 

FUNC CNT-6 

FFFFFFD6 

LVOReschedule 

EQU 

FUNC CNT 

FFFFFFD0 

FUNC_CNT 

SET 

FUNC_CNT-6 


Bild 6.9: Das Ergebnis des Programms von Bild 6.8 


Bei den Zahlen müssen Sie immer die Notation im 2er-Komplement sehen. Die füh¬ 
renden FFFFFF können Sie sich dann wegdenken. Das verbleibende E2 (hex) zum Bei¬ 
spiel ist dezimal 226. 226-256 ist dann -30. Beachten Sie, daß JLVOSupervisor zuerst 
mit EQU auf -24 (E8) gesetzt wird. Erst die folgende SET-Direktive ändert den Wert 
in -30 (E2). 


6.3 Include-Files 


Auch die Include-Anweisung kann man zuerst zusammen mit Makros sinnvoll ein- 
setzen. Nehmen wir an, Sie haben die Makro-Definition von Bild 6.6 in einem Text-File 
mit dem Namen »Mac66« abgelegt. Dann können Sie das Programm von Bild 6.6 jetzt 
so schreiben, wie es Bild 6.10 zeigt. 
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include ”Mac66” 



PRINT 

PRINT 

msgl 

dc.b 

lenl 

equ 
ds .v 

msg2 

dc.b 

len2 

equ 


end 


/msgl,/lenl 
/msg2,/len2 

’Hallo’ 

*-msg1 

0 

’Amlga’ 
*-msg2 


Bild 6.10: Ein Programm mit Makros, die aus einem Include-File gelesen werden 


Diese Methode ist sehr sinnvoll, denn Sie werden sicherlich in jedem Programm zahl¬ 
reich DOS-Funktionen einsetzen. Wenn Sie sich diese Funktionen einmal als Makros 
definiert und in Ihrem »Mac-File« abgelegt haben, ersparen Sie sich nicht nur eine 
Menge an Tipperei, sondern auch einiges an Zeit für die Fehlersuche wegen nicht ge¬ 
machter Tippfehler. Es macht durchaus nichts, wenn im jeweiligen Programm viele der 
Makros nicht genutzt werden. Sie erzeugen dann auch keinen Code. Wird die »Mac- 
Lib« (Kürzel für Library = Bibliothek) zu groß, kostet es natürlich Zeit, wenn Sie der 
Assembler bei jedem Lauf einiesen muß. Auf einer RAM-Disk kann dies unter Um¬ 
ständen zu Platzproblemen führen. 

Deshalb sollten Sie Ihre »Lib« möglichst in mehrere kleine Files nach Sachgebieten 
aufteilen. Ob man die Sache allerdings so weit treiben muß, wie in den Include-Files 
von Metacomco und HiSoft, sei dahingestellt. Da gibt es zum Beispiel Makros, die die 
Library-Namen definieren. Auf diese Art muß man sich nicht diese Namen merken, 
dafür aber die der Makros. Besonders überflüssig ist der folgende Makro, oder will da 
etwa jemand die Exec-Lib öffnen? 

EXECNAME macro 

dc.b ’exec.library’,0 

even 

endm 

Dennoch ist es sehr empfehlenswert, die Include-Files der Assembler-Systeme zu 
nutzen. Schauen Sie sich diese Files auch ruhig einmal mit einem Editor an. Sie können 
daraus sehr viel über die Datenstrukturen des Amiga lernen (auf das Thema gehen wir 
später noch ausführlich ein). 
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6.4 Module 

Module sind ein weiteres Hilfsmittel, die Programmierarbeit zu rationalisieren. Die 
dahinterstehende Philosophie ist, daß man ein großes Programm in viele einzelne, von¬ 
einander möglichst unabhängige Blöcke oder Abschnitte, kurz Module genannt, unter¬ 
teilt. Eine Sprache wie Modula beispielsweise ist aus dieser Philosophie heraus geboren 
worden. In Assembler muß man zwei Arten von Modulen unterscheiden, nämlich 

- Textmodule 

- Code-Module 


6.4.1 Textmodule 

Textmodule hatten wir praktisch schon behandelt, es sind die Include-Files. Ein auf 
Textebene modulisiertes Programm, das den Arbeitstitel DED trägt, könnte beispiels¬ 
weise so aussehen: 

include "dos.mac" 
include "bios.mac” 
include ”ded_logo” 
include "dedjnenu" 
include "ded_subs" 

Vorteil der Textmodule ist zuerst, daß die Listings relativ kurz werden, wenn Sie immer 
einen Teil, der fertig geworden ist, als Textmodul ablegen. Wenn ich zum Beispiel bei 
der Entwicklung des Teils »ded_menu« bin, in dem natürlich ein Bug steckt, dann 
brauche ich mich nicht erst bis zur Zeile 477 vorzuarbeiten, sondern bin da schon bei 
Zeile 5. 

Vorteil Nummer 2 wäre natürlich, daß man allgemein brauchbare Dinge, wie zum Bei¬ 
spiel die DOS-Lib immer wieder verwenden kann. 


6.4.2 Code-Module 

Ein Nachteil der Textmodule ist, daß sie bei jedem Lauf neu assembliert werden müs¬ 
sen. Die Abhilfe bringen die Code-Module. Dazu werden einzelne Blöcke getrennt 
assembliert und nachher vom Linker mit dem Hauptprogramm zusammengebunden. 
Das klingt sehr gut, bringt aber zuerst einiges an Mehrarbeit mit sich und stellt auch 
einige Anforderungen an den Linker und die gesamte Programmierumgebung an sich. 
Um es gleich zu sagen, der Aufwand lohnt sich nur bei größeren bis sehr großen Pro¬ 
grammen. 

Beginnen wir mit der Mehrarbeit im Programm. In einem kompletten Programm kön¬ 
nen Sie beispielsweise ohne weiteres sagen: 
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bsr print. 

Steckt aber die Print-Routine in einem anderen Modul, so müssen Sie Ihrem Pro¬ 
gramm mitteilen, daß »print« eine externe Routine ist. Gleiches gilt für Variablen¬ 
namen. Aus diesen Gründen muß der Assembler Direktiven der Art 


External, 

Global 

und/oder XREF 

bieten. Diese Direktiven müssen Sie natürlich auch anwenden. Je nach Assembler ist 
die Sache mehr oder weniger weit getrieben, ist natürlich auch nicht genormt, sprich 
Sie müssen sich mit der Thematik auseinandersetzen und einiges an Lernpensum be¬ 
wältigen. 

Haben Sie sich dadurch nicht abschrecken lassen und Ihr Programm schön modulisiert, 
kommt das nächste Problem. 

Vorausgesetzt, Ihr Linker kann beliebig viele Module binden (Vorsicht, einige erlauben 
nur Eingabezeilen von zum Beispiel 64 Zeichen!), dann ist das natürlich jedesmal eine 
irre Tipperei, wenn Sie den Linker aufrufen. Dazu sollte es nun eine von zwei Lösungen 
geben: 

1. Der gesamte Lauf wird »im Batch« abgearbeitet (siehe Kapitel 4). 

2. Der Linker bietet eine Anweisung wie »INPUT File-Name«. In diesem Fall schrei¬ 
ben Sie einmal alle Linker-Anweisungen in einen Text-File. Beim Aufruf des Lin¬ 
kers sagen Sie ihm dann, daß er diesen Text-File benutzen soll. 

Alles in allem, die Sache ist doch recht umständlich. Ich kann Ihnen nur raten, stellen 
Sie das Thema Code-Module vorerst zurück. Erst wenn Sie den 68000-Assembler rich¬ 
tig beherrschen, und Sie sich an große Aufgaben wie beispielsweise die Entwicklung 
eines BASIC-Interpreters heranwagen, dann sollten Sie sich - nun allerdings dringend 
- wieder mit dem Thema Modulisierung auf Code-Ebene auseinandersetzen. 

Andererseits ist modulare Programmierung in Assembler der einzige Weg, um auch bei 
mittelgroßen Programmen einigermaßen über die Runden zu kommen. Wie man dabei 
praktisch vorgeht, soll das folgende Beispiel zeigen. 

Es soll ein Diskeditor entwickelt werden. Im Hauptmenü hat der Anwender die Aus¬ 
wahl unter den Kommandos »L)esen, E)ditieren, Schreiben und Exit«. Wie das Menü 
angeboten wird, lasse ich erst einmal dahingestellt sein. Fest steht nur, daß die Buch¬ 
staben L, E, S und X eingegeben die entsprechende Aktion auslösen sollen. Sozusagen 
im Bestand habe ich einen Include-File, der eine Taste liest und daraufhin das zuge¬ 
ordnete Unterprogramm aufruft. Diesen File finden Sie als Auszug in Bild 6.11. Es ist 
ein Teil des »CASE X OF«-Programms aus Kapitel 5. 
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* Start.Icl 
start 


* lese Taste 

nach d0. 

bclr 

/5,d0 

lea 

keys,a0 

move 

/count,dl 

search cmp.b 

(a0)+,d0 

dbeq 

dl.search 

tst 

dl 

bmi 

start 

neg 

dl 

add 

/count,dl 

lsl 

/2, dl 

lea 

table,a0 

move. 

1 0(a0,d1.w),a0 

jsr 

(a0) 

bra 

start 


Erzwinge Grossbuchstaben 
Tabelle gueltige Keys 
deren Anzahl 

Key auf aktuellem Platz? 

wenn nicht, weitersuchen 

bis Tabellenende 

Key gefunden? 

wenn nicht, auf ein Neues 

sub dl,/count 

ergibt Platznr. von Key 

die mal 4 

Adr. der Routine 

bestimmen 

und diese aufrufen 
usw. 


Bild 6.11: Startmodul als Include-File 


Nachdem dieser Modul existiert, beginne ich nun mein neues Programm so, wie es Bild 
6.12 zeigt. 



include 

"start.icl" 

Lese 

rts 


Edit 

rts 


Schreib 

rts 


keys 

dc.b 

’L *,’E’,’S *,’X‘ 

count 

equ 

»-keys 


ds.w 

0 

table 

de .1 

Lese, Edit,Schreib,Exit 


Bild 6.12: Ein neues Programm wird so begonnen 
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6.5 Top Down Bottom Up 

Sie sehen sofort die Struktur des Programms. Was in den einzelnen Unterprogrammen 
passiert, interessiert zuerst gar nicht. Man kann nun hergehen und die einzelnen Unter¬ 
programme nacheinander mit »Fleisch füllen«. Ist ein Unterprogramm fertig, wird es 
ausgetestet. Erst wenn es läuft, wird das nächste begonnen. Praktisch geht man sogar 
noch einen Schritt weiter. Zum Beispiel benötigt das Unterprogramm »Lese« eine 
Routine, die einen Sektor liest, und eine weitere, die den gelesenen Sektor auf dem 
Schirm in hex ausgibt. Dazu brauche ich unter anderem ein Unterprogramm 
»Anzeige«. Anzeige benötigt aber eine Routine, die ein Wort in die entsprechenden 
ASCII-Strings umwandelt. Damit ergibt sich dieser Ablauf: 


Lese 


bsr read_sec 
bsr anzeige 
rts 


read_sec rts 

anzeige bsr wandte 
bsr print 
rts 


wandte rts 
print rts 


Begonnen habe ich ganz oben und bin zum Schluß beim Unterprogramm »print« ge¬ 
landet. Dies muß ich nun wirklich bearbeiten. Wenn die Routine »print« läuft, kann ich 
»wandle« beginnen. Denn nun erst kann ich ja die gewandelten Hex-Zahlen ausgeben 
und somit die Routine »print« auch testen. Jetzt werde ich mir »anzeige« vornehmen, 
das durch mehrfachen Aufruf von Print einen Pufferinhalt auf dem Schirm ausgibt. 
Danach werde ich »read_sec« schreiben, was diesen Puffer mit Daten füllt. Nun 
schließlich kann ich im Hauptmenü »Lese« aufrufen und wäre damit wieder ganz oben. 


Dieses »von oben nach unten und wieder zurück« nennt man »top down bottom up«. 
Dies ist eine Methode der Programmierung, die gerade in Assembler sehr zu empfeh¬ 
len ist. Sie beschränken damit die Fehlersuche immer nur auf einen kleinen, über¬ 
schaubaren Bereich. Scheuen Sie dabei auch nicht den Mehraufwand, einzelne Unter¬ 
programme temporär mit Spieldaten zu versorgen. Der Aufwand ist gering, der Nutzen 
ist groß. Zum Beispiel soll die Routine »wandle« ein Wort in DO als Hex-String aus¬ 
geben. Schreiben Sie dann einfach 


move $19AF,d0 
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vorläufig als erste Zeile im Unterprogramm »wandle«. Wenn Sie nun die Routine 
testen und »19AF« auf dem Schirm sehen, dann können Sie schon ziemlich sicher sein, 
daß »wandle« funktioniert. 



Kapitel 7 


Programmentwicklung Schritt für Schritt 


am Beispiel »bindec« 
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7.1 Das Prinzip der Konvertierung von Binärzahlen 
in Strings 

In diesem Kapitel soll gezeigt werden, wie man ein Programm Schritt für Schritt ent¬ 
wickelt. Als nützliches Beispiel dient eine Routine, die wir später noch oft benötigen 
werden. Ihr Name ist »bindec«. »bindec« soll einen positiven Integerwert (0..65535), 
wie ihn der 68000 sieht, also binär, in einen Dezimalstring wandeln, den wir lesen 
können. 

Bild 7.1 zeigt den ersten Schritt, an dem wir die grundsätzliche Technik der Zahlen¬ 
wandlung studieren wollen. 

Vorab: Es ist für den ersten Ansatz günstiger, jede Stelle (jedes Zeichen) sofort auszu¬ 
geben und nicht erst alle Zeichen in einem Puffer zu sammeln. Außerdem gibt es viele 
Listings zu Computern, die zeichenorientiert arbeiten und dafür Routinen mit Namen 
wie CONOUT zur Verfügung stellen (Beispiel: Atari ST). Deshalb, und damit Sie auch 
»Fremdlistings« einfacher übernehmen können, simuliere ich ein CONOUT mittels des 
Makros gleichen Namens. CONOUT entspricht dem Makro PRINT aus Kapitel 6, nur 
daß hier die Länge konstant 1 ist und deshalb nicht mehr übergeben werden muß. 


* decl 


CONOUT 


opt 

1- 


include 

OpenDos.i 


macro 

movem.1 

d0-d3/a6,-(sp) 


jsr 

_LV00utput(a6) 

;Hole Output-Handle 

move.1 

d0,d1 

;Ausgabe-Handle 

move. 1 

\1 ,d2 

;Address Text 

move.1 

/I ,d3 

;Laenge Text 

jsr 

_LV0Write(a6) 

;Funktion "Schreiben” 

movem.1 

endm 

(sp)+,d0-d5/a6 


move 

#62345,d2 

;Testzahl 

and. 1 

#$FFFF,d2 

;Begrenze auf Wort 

divs 

#10000,d2 

;10000er Stelle 

bsr 

out 

;ausgeben 

svap 

d2 

;Divisionsrest nach d2.w 

and. 1 

#$FFFF,d2 

;vieder auf Wort bringen 

divs 

/1000,d2 

;nun die 1000er Stelle 

bsr 

out 
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svap 

d2 ;wie 

vor 

die 100er 


and. 1 

/SFFFF,d2 




divs 

/I00,d2 




bsr 

out 




svap 

d2 ;nun 

die 

10er 


and. 1 

/SFFFF t d2 




divs 

/10,d2 




bsr 

out 




svap 

d2 ;und 

die 

1 er 


bsr 

out 




move.b 

/10,buffer 




C0N0UT 

/buff er 




move.1 

a6,a1 


;D0S-Lib-Basis 


move.1 

SysBase,a6 


;Basis Exec 


Jsr 

_LVOCloseLibrary(a6) 

;Funktion "Schliessen” 

finl 

rts 



;Return 2 um CLI 

out 

add.b 

/’0’,d2 


;in ASCII wandeln 


move.b 

d2,buffer 




C0N0UT 

rts 

/buffer 


;1 Zeichen ausgeben 

* Datenbereich: 




dosname 

de. b 

’dos.library',0 




enop 

0,2 



buffer 

ds. b 

80 




Bild 7.1: Das Prinzip von »bindec« 

Das Prinzip der Zahlenwandlung ist ganz einfach. Wir müssen die Zahl, beispielsweise 
123, ausdrücken als 1 Hunderter, 2 Zehner und 3 Einer. Wenn wir so die Ziffern 1, 2 
und 3 isoliert haben, sind das »im Computer« zwar immer noch Zahlen, aber dann muß 
man darauf nur noch den ASCII-Code des Zeichens ’0’ addieren, und schon hat man 
druckbare Zeichen. Die Methode der Isolation der einzelnen Ziffern ist die fort¬ 
laufende Division und zwar so: 


123 /100 
23 / 10 
3/1 


1 Rest 23 

2 Rest 3 

3 Rest 0 
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Das Dividieren wird beim 68000 mit Hilfe der Befehle 
DIVS oder DIVU 

erledigt. Das heißt »Division Signed« (mit Vorzeichen) oder »Division Unsigned« 
(ohne Vorzeichen). Dividiert wird ein 32-Bit-Dividend durch einen 16-Bit-Divisor. Divi¬ 
diert wird immer Ziel/Quelle. Danach steht das Ergebnis im Zieloperanden und zwar 
so: 

höherwertiges Wort niederwertiges Wort 

Rest Quotient 

Das Programm von Bild 7.1 soll das Wort im Register D2 in »Dezi« wandeln. Weil wir 
nur Worte zulassen, muß ein eventueller Langwort-Dividend auf Wortlänge (in D2) 
mittels des »and.l«-Befehls begrenzt werden. Nun wird D2 durch 10 000 dividiert. Das 
Ergebnis ist der Wert der 10 OOOer-Stelle, der im Unterprogramm »out« ausgegeben 
wird. Nun wird mittels des SWAP-Befehls der Rest in das niederwertige Wort gebracht, 
dieser wird wieder »auf Wort« begrenzt und dann durch 1000 dividiert. Das setzt sich 
dann so mit der lOOer-und der lOer-Stelle fort. Beim »Einer« müssen wir natürlich 
nicht mehr dividieren, nur vergessen dürfen wir ihn nicht. 

So weit so gut. Nur wenn man sich das Programm so ansieht, fallen doch einige 
Wiederholungen auf. Da muß man doch rationalisieren können! Den ersten Ansatz 
dazu zeigt Bild 7.2. 


opt 

1- 


include 

include 

OpenDos.i 
conout.i 


move 

/I2345,d2 

;Testzahl 

move 

bsr 

/I0000,dl 
out2 

; 10000er Stelle 
jausgeben 

move 

bsr 

/1000,d1 

outl 

;nun die 1000er Stelle 

move 

bsr 

/100,d1 

outl 


move 

bsr 

/10,d1 

outl 
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move 

/I, dl 



bsr 

outl 



move.b 

/10.buffer 



CONOUT 

/buffer 



move.1 

a6, al 

;DOS-Lib-Basis 


move.1 

_SysBase,a6 

;Basis Exec 


jsr 

LV0CloseLibrary(a6) 

;Funktion "Schliessen 

f ini 

rts 


;Return zum CLI 

outl 

svap 

d2 

;Div.-Rest nach d2 

out2 

and. 1 

/$FFFF,d2 

;vieder auf Word 


divs 

dl ,d2 

;Stelle holen 


add. b 

/'0',d2 

;in ASCII wandeln 


move .b 

d2,buffer 



CONOUT 

rts 

/buffer 

;1 Zeichen ausgeben 

* Datenbereich: 



dosname 

dc.b 

1 dos.library’,0 



cnop 

0,2 


buffer 

ds .b 

80 



Bild 7.2: Ratio-Schritt 1. Mehr Arbeit ins Unterprogramm 


Wieder vorab: Der Makro CONOUT wurde inzwischen in den Include-File »conout.i« 
ausgelagert. Wählen Sie dazu einfach aus Bild 7.1 diesen Block im Editor aus und spei¬ 
chern ihn unter »conout.i« auf der Disk. 

Sie sehen, die Befehle »swap«, »ext.l« und »divs« sind in das Unterprogramm gewan¬ 
dert. Da beim ersten Aufruf aber nicht »geswappt« werden darf, wurde das Unter¬ 
programm mit zwei Einsprungstellen versehen. Das ist ein beliebter aber sehr unfeiner 
Trick. Der Divisor wird jeweils im Register Dl übergeben. Nun stört noch die Tat¬ 
sache, daß da fünf nahezu gleiche Unterprogramm-Aufrufe existieren. Wie man das 
ändert, zeigt Bild 7.3. 
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opt 

1- 



* dec3 

include 

OpenDos.i 




include 

conout.i 




move 

/12?45,d2 

;Testzahl 



move. 1 

/I0000,dl 

;10000er Stelle. Nun Long! 


bsr 

out2 

;ausgeben 



move 

/3,d3 



loop 

divs 

/10,dl 




bsr 

outl 




dbra 

d?,loop 




move.b 

/10,buffer 




C0N0UT 

/buffer 




move.1 

a6,a1 


DOS-Lib-Basis 


move.1 

SysBase,a6 


Basis Exec 


jsr 

_LV0CloseLibrary(a6) 

Funktion "Schliessen 

fini 

rts 


;Return zum CLI 

outl 

swap 

d2 


Div.-Rest nach d2.w 

out2 

and. 1 

/$FFFF,d2 


wieder auf Word 


divs 

dl ,d2 


Stelle holen 


add.b 

/'0’,d2 


in ASCII wandeln 


move.b 

d2.buffer 




C0N0UT 

rts 

/buffer 


1 Zeichen ausgeben 

* Datenbereich: 




dosname 

dc.b 

■ dos.library’,0 



cnop 

0,2 



buffer 

ds .b 

80 




Bild 7.3: Ratioschritt 2: Eine Schleife hinzu 


Die Schleife wurde nach altbekannter Art mittels »dbra« aufgebaut, wobei D3 als Zäh¬ 
ler dient. Innerhalb der Schleife wird nun der Divisor Dl selbst immer durch 10 divi¬ 
diert. Achten Sie bitte darauf, daß Dl nun mit einer langen Konstante initialisiert wird. 
Da die Schleife bis zum »Einer« laufen muß, wird dieser zum Schluß überflüssigerweise 
durch eins dividiert. Das abzufangen kostet aber mehr Zeit, also lassen wir das so 
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stehen. Nun meine ich aber, daß das Unterprogramm überflüssig ist. Wie man das UP 
in die Schleife bringt, zeigt Bild 7.4. 


opt 

1- 


* dec4 





include 

OpenDos.i 



include 

conout.i 



move 

t 123,d2 

;Testzahl 


move. 1 

/10000,dl ; 10000er 

Stelle. Nun Long! 


move 

/4,d3 ;Schleifenzaehler jetzt 4! 


bra 

out2 ;ausgeben 


loop 

divs 

/10,d1 


outl 

svap 

d2 

;Div.-Rest nach d2.v 

out2 

and. 1 

/$FFFF,d2 

;uieder auf Word 


divs 

dl ,d2 

[Stelle holen 


add. b 

/'0' , d2 

;in ASCII wandeln 


move.b 

d2 .buffer 



CONOUT 

/buffer 

;1 Zeichen ausgeben 


dbra 

d3,loop 



move.b 

/10,buffer 



CONOUT 

/buffer 



move.1 

a6,a1 

;DOS-Lib-Basis 


move.1 

SysBase,a6 

;Basis Exec 


jsr 

_LVOCloseLibrary(a6) 

[Funktion "Schliessen” 

fini 

rts 


[Return zum CLI 

* Datenbereich: 



dosname 

dc.b 

’dos.library',0 



cnop 

0,2 


buffer 

ds .b 

80 



Bild 7.4: Ratioschritt 3: Unterprogramme entfallen 
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opt 

1- 


* dec5 





include 

OpenDos.i 



include 

conout.i 



move 

/12?,d2 

;Testzahl 


clr 

d4 

Flag Nullunterdrueckung 


move. 1 

jfl00130, dl 

10000er Stelle. Nun Long! 


move 

/4, d? 

Schleifenzaehler jetzt 4! 


bra 

out2 

ausgeben 

loop 

divs 

/10, d 1 


outl 

svap 

d2 

Div.-Rest nach d2.v 

out2 

and.l 

/$FFFF,d2 

wieder auf Word 


divs 

dl ,d2 

Stelle holen 


add.b 

/’ 0',d2 

in ASCII wandeln 


cmp. b 

/' 0',d2 

ist es eine Null? 


bne 

out? 

wenn nicht, ausgeben 


tst 

d4 

Blank erlaubt? 


bne 

out? 

nein: gebe Null aus 


move.b 

/’ ' ,d2 

ja : setze Blank ein 


bra 

out4 

und raus damit 

out? 

move 

/I ,d4 

Flag keine Blanks mehr 

out4 

move.b 

d2,buffer 



C0N0UT 

/buffer 

1 Zeichen ausgeben 


dbra 

d?,loop 



move.b 

/10,buffer 



C0N0UT 

/buffer 



move.l 

a6,a1 

;DOS-Lib-Basis 


move.1 

_SysBase,a6 

;Basis Exec 


jsr 

_LV0CloseLibrary(a6) ;Funktion "Schliessen" 

finl 

rts 


;Return zum CLI 

* Datenbereich: 



dosname 

de .b 

dos library’,0 



enop 0 

.2 


buffer 

ds .b 

80 



Bild 7.5: Schritt 4: Unterdrückung führender Nullen hinzu 
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Beachten Sie, daß ich wegen des beim ersten Mal unerwünschten »swap« jetzt in die 
Schleife hineinspringe, weshalb ich nun den Schleifenzähler mit 4 initialisieren muß. 
Jetzt aber genug der Ratio, kümmern wir uns Heber um die Schönheit. Ihnen ist sicher¬ 
lich aufgefallen, daß das Programm führende NuUen schreibt, wenn die Zahlen kleiner 
als fünfstellig sind. Die unterdrückt man üblicherweise durch Ausgabe von Blanks 
anstatt führender Nullen. Wie man das macht, zeigt Bild 7.5. 

Das Problem ist einfach zu beschreiben. Führende Nullen sollen durch Blanks ersetzt 
werden, andere Nullen natürhch nicht. Dazu benötigt man ein Flag (Merker), das 
gesetzt wird, sobald eine Zahl ungleich null auftaucht. Soweit die Logik. Praktischer ist 
jedoch, den Gedankengang etwas abzuwandeln, nämhch so: Jede Zahl ungleich null 
setzt das Flag. Damit kann man sich die sehr aufwendige Realisierung des Unterschei¬ 
dens von erster »nicht Null« und anderen Nullen ersparen. 

In unserem Fall ist das Register D4 das Flag. Die Abfrage beginnt in der Zeile mit 
» + + + neu + + +« am rechten Rand. Ist die Zahl keine Null, wird D4 mit 1 geladen 
und dann das Zeichen ausgegeben. Ansonsten muß es eine Null sein. Und nun kommt 
der Test. Ist D4 gesetzt, wird die Null als Null ausgedruckt. Wenn nicht, wird D2 mit 
einem Blank geladen. 

Nun habe ich beschlossen, das Ganze soU ein universell verwendbares Unterprogramm 
werden. Das heißt zuerst, das Unterprogramm darf die Zeichen nicht auf dem Schirm 
ausgeben, weil man sonst zum Beispiel nicht drucken kann. Die Änderung ist kein Pro¬ 
blem. Bild 7.6 bringt die Lösung. Die Ausgabe erfolgt in einen Puffer namens »buffer«. 
Als Zeiger durch den Puffer wirkt das Register AO. Um zu wissen, wieviel Zeichen im 
Puffer gültig sind, wird als letztes Zeichen ein Null-Byte geschrieben. Das ist sehr 
praktisch, haben wir doch damit gleichzeitig einen DOS-String. 


opt 1- 

* dec6 

include OpenDos.i 
include conout.i 


PRINT macro 

movem.1 
jsr 

move.I 
move. 1 
move. 1 
jsr 
movem. 
endm 

move 


d0-d3/a6,-(sp) 

_LV00utput(a6) 

d0,d1 

\1.d2 

\2,d3 

_LV0Write(a6) 
(sp)+,d0-d3/a6 


/123,d2 


;Hole Output-Handle 
; Ausgabe-Handle 
;Address Text 
;Laenge Text 
;Funktion "Schreiben” 


;Testzahl 
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clr 

d4 

;Flag Nullunterdrueckung 


lea 

buffer,a0 

;Ergebnis-Puffer 


move. 1 

XI0000,dl 

;10000er Stelle. Nun Long! 


move 

/4,d? 

;Schleifenzaehler jetzt 4! 


bra 

out2 

;ausgeben 

loop 

divs 

XI0,dl 


outl 

svap 

d2 

;Div.-Rest nach d2.v 

out2 

and. 1 

/$FFFF,d2 

;vieder auf Word 


divs 

dl ,d2 

;Stelle holen 


add.b 

/' 0',d2 

;in ASCII wandeln 


cmp.b 

/'0',d2 

;ist es eine Null? 


bne 

out? 

;wenn nicht, ausgeben 


tst 

d4 

;Blank erlaubt? 


bne 

out 

;nein: gebe Null aus 


move.b 

/’ ',d2 

;ja : setze Blank ein 


bra 

out4 

; und raus damit 

out3 

move 

/I ,d4 

;Flag keine Blanks mehr 

out4 

move.b 

d2,(a0)+ 

;Zeichen -> Puffer 


dbra 

d?,loop 



move.b 

/0,(a0) 

;von PRINT ignoriert 


PRINT 

/buffer,/5 

;Zahl ausgeben 


move.u 

/$0A0A,buffer 

;2 Linefeeds 


PRINT 

/buffer,/2 



move.1 

a6,a1 

;DOS-Lib-Basis 


move.1 

_SysBase,a6 

;Basis Exec 


jsr 

_LV0CloseLibrary(a6) ;Funktion "Schliessen” 

fini 

rts 


;Return zum CLI 

* Datenbereich: 



dosname 

dc.b 

’dos.library',0 



cnop 

0,2 


buffer 

ds. b 

80 



Bild 7.6: Schritt 5: Ausgabe in einen Shing 


Nur ein richtig universelles Unterprogramm ist es damit trotzdem noch nicht. Störend 
ist schon, daß die Wertübergabe im Register D2 erfolgt, das könnte ja das Haupt¬ 
programm benutzen. Schlimm jedoch ist, daß eine Variable mit dem Namen »buffer« 
fest mit diesem Programm gekoppelt ist. Das muß geändert werden. Wie, zeigt Bild 7.7. 
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opt 1- 


* dec? 

include OpenDos.i 
include conout.i 
PRINT macro 

movem.1 d0-d?/a6,-(sp) 
jsr _LV00utput(a6) 

move.l d0,d1 
move.1 \1,d2 

move.l \2,d? 
jsr _LV0Write(a6) 

movem.1 (sp)+,d0-d?/a6 
endm 

move /1001,-(sp) 
pea buffer 

bsr bindec 

PRINT /buffer,/5 

move.w /$0A0A,buffer 
PRINT /buffer,/2 

move. 1 
move. 1 
jsr 

find rts 


;Hole Output-Handle 
;Ausgabe-Handle 
;Address Text 
;Laenge Text 
[Funktion "Schreiben” 


;Testzahl 
[Ergebnis-Puffer 
[Routine aufrufen 

[Zahl ausgeben 

;2 Linefeeds 


a6,a1 

_SysBase,a6 

_LV0CloseLibrary(a6) 


;DOS-Lib-Basis 
[Basis Exec 

[Funktion "Schliessen” 
[Return zum CLI 


bindec 

move. 1 

4(sp),a0 


move 

8(sp),d2 


move. 1 

/10000,d1 


move 

/4,d? 


clr 

d4 


lea 

buffer,a0 


bra 

out2 

loop 

divs 

XI0,dl 

outl 

swap 

d2 

out2 

and. 1 

/$FFFF,d2 


divs 

dl ,d2 


add. b 

/’0’,d2 


cmpi. b 

/’0’,d2 


bne 

out? 


tst 

d4 


bne 

out? 


move 

/' 1 , d2 


bra 

out4 

out? 

move 

/I ,d4 


[Pufferadresse holen 

;und die zu wandelnde Zahl 

[erster Divisor 

;Schleifenzaehler 

[Flag Nullunterdrueckung 

[Ergebnispuffer 

;10000er wandeln 

;und nun die 1000er bis 1er 

[Divisionsrest nach d2.w 

[wieder auf Word 

;naechste Stelle 

;wandle in ASCII 

[ist es eine Null? 

;wenn nicht ausgeben 
[Blank erlaubt? 

;nein, gebe die Null aus 
;setze Blank ein 
;und gebe aus 
;Flag keine Blanks mehr 
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move.b 

d2,(a0)+ 

;Zeichen -> Puffer 

dbra 

dj.loop 


move. b 

/0,(a0) 

;Abschlusszeichen 

move. 1 

(sp)+,a0 

;hole Return-Adresse 

addq. 1 

/6, sp 

;Parameter vom Stack 

J“P 

<a0) 

;und Return 


* Datenbereich: 

dosname dc.b ’dos.library’,0 
cnop 0,2 

buffer ds.b 80 


Bild 7.7: Schritt 6: Parameterübergabe über den Stack 


Aufgerufen wird das Unterprogramm »decbin« in der Folge 

- Wert auf den Stack 

- Pufferadresse auf den Stack 

- bsr decbin 

Danach befinden sich auf dem Stack bei 

8(sp) : Wert 

4(sp) : Pufferadresse 

0(sp) : Return-Adresse 

Folglich kann man sich mit 

move.l 4(sp),a0 
move.u 8(sp),d2 

diese Parameter leicht holen. Der Rest läuft dann wie bekannt, allerdings mit einem 
kleinen Unterschied zum Schluß. 

move.l (sp)+,a0 

holt die Return-Adresse vom Stack und inkrementiert den Stackpointer um 4. Nun muß 
ich aber noch die 6 Byte der Parameter (Wort für Wert und Langwort für Adresse) 
vom Stack »entfernen«. Das geschieht mittels der Anweisung 

addq.l /6,sp 
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Zum Schluß muß man natürlich »returnen«, was aber jetzt nur noch heißt, »springe zur 
Return-Adresse«, also 

jmp (a0) 

Der Mechanismus kommt Ihnen bekannt vor? Sie haben recht, so ähnlich arbeiten 
Hochsprachen. Das ist ganz interessant zu wissen: Die Sprache C, die die ideale Spra¬ 
che für den Amiga sein will, denkt leider völlig an dessen Parametertransfer vorbei, der 
bekanntlich über Register läuft. Folglich packt jede C-Funktion immer brav alle Para¬ 
meter auf den Stack. Dann fügt der Compiler eine Routine ein, die die Parameter wie¬ 
der vom Stack holt und in die Register umlädt. Daß dieser Umweg ganz schön Zeit und 
Code kostet, können Sie sich wohl vorstellen. Dennoch sollten Sie den Mechanismus 
gut studieren, denn den müssen Sie kennen, wenn es, wie im entsprechenden Kapitel 
gezeigt, um die Einbindung von Assembler-Routinen in BASIC geht. 


bindec 

movem. 1 

d1-d4,-(sp) 


move. 1 

20(sp),a0 


move 

24(sp),d2 


move. 1 

/10000,dl 


move 

/4,d? 


clr 

d4 


lea 

buffer,a0 


bra 

bd? 

bdl 

divs 

XI0, dl 

bd2 

swap 

d2 

bd3 

and. 1 

/SFFFF,d2 


divs 

dl ,d2 


add.b 

X’0’,d2 


cmpi .b 

X’0’,d2 


bne 

bd4 


tst 

d4 


bne 

bd4 


move 

/' 1 ,d2 


bra 

bd5 

bd4 

move 

XI , d4 

bd5 

move. b 

d2,(a0)+ 


dbra 

d3,bdl 


move.b 

/0,(a0) 


movem. 1 

(sp)+,d1-d4 


move. 1 

(sp)+,a0 


addq. 1 

/6,sp 


j“P 

(a0) 


;Register retten 

;Pufferadresse holen 

;und die zu wandelnde Zahl 

;erster Divisor 

;Schleifenzaehler 

;Flag Nullunterdrueckung 

;Ergebnispuffer 

;10000er wandeln 

;und nun die 1000er bis 1er 

;Divisionsrest nach d2.w 

;wieder auf Word 

jnaechste Stelle 

jwandle in ASCII 

;ist es eine Null? 

;wenn nicht ausgeben 
;Blank erlaubt? 

;nein, gebe die Null aus 
;setze Blank ein 
;und gebe aus 
;Flag keine Blanks mehr 

;Zeichen -> Puffer 

;AbschlussZeichen 
;Register zurueck 
;hole Return-Adresse 
;Parameter vom Stack 
;und Return 


Bild 7.8: Der letzte Schritt. Arbeitsregister werden gesichert 
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So weit so gut, aber perfekt sind wir immer noch nicht. Unser »bindec« zerstört leider 
die Register Dl bis D4. AO wird zwar auch geändert, aber das ist üblich, auch DO ist 
immer »scratch« (Schmierpapier). Im letzten Schritt, dem im Bild 7.8, soll das auch 
abgestellt werden. 

Vorab, ich habe die Labels so geändert, daß Sie hoffentlich in anderen Programmen 
nicht Vorkommen. Falls Ihr Assembler lokale Labels bietet, dann sollten Sie davon 
Gebrauch machen (bei Metacomco $n...). Neu ist der Befehl 

movem.l d1-d4,-(sp) 

Damit kann eine ganze Gruppe oder Liste von Registern auf den Stack gebracht wer¬ 
den. Auch Schreibweisen wie 

movem.l d1-d4/a1-a2/a5,-(sp) 

sind zugelassen. Das Gegenstück (vom Stack holen) lautet dann 
movem.l (sp)+,d1-d4/a1-a2/a5 

Da sich in unserem Beispiel nun vier Register, also 16 Byte auf dem Stack zusätzlich 
befinden, müssen wir nun, um die Parameter zu holen, auch diese 16 Byte zugeben, 
daher: 


move.l 20(sp),a0 ;Pufferadresse holen 

move 24(sp),d2 ;und die zu wandelnde Zahl 

Nun speichern Sie bitte die Routine »bindec« in einem Extra-File, wir werden sie 
später noch benötigen. 




Kapitel 8 


Ein Schnellkurs in Sachen Intuition 
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8.1 Multitasking 

Vorab: Läßt man ein eigenes Programm unter CLI laufen, wird das wie ein Unterpro¬ 
gramm des CLI gehandhabt. Es kann daher ohne Startup-Code geschrieben werden 
und schlicht mit RTS enden. Soll ein Programm hingegen als eigener Task laufen, muß 
es mit einem Startup-Code versehen werden (kommt in Kapitel 9). Der Sinn des Start- 
up-Codes ist unter anderem, daß ein Programm zuerst auf eine Message (Nachricht) 
warten muß, bevor es loslegen darf, und damit wären wir beim Thema Multitasking. 

Prinzipiell kann Ihr Task (Programm) so tun, als sei er der einzige Task im System. 
Praktisch kommen Sie damit nicht weit, denn Sie müssen mit anderen Tasks kommuni¬ 
zieren, um zum Beispiel zu erfahren, ob die Maus bewegt wurde. Die Kommunikation 
erfolgt beim Amiga über Message-Ports. Gesteuert wird das Ganze vom Message-Dis¬ 
patcher, den Sie sich wie das Mädchen in der Telefonzentrale vorstellen können, das 
die Verbindungen zwischen den einzelnen Teilnehmern herstellt. Nur haben wir eine 
Super-Telefonistin. Sind Sie nämlich gerade besetzt, schreibt das Mädchen alles auf 
und gibt Ihnen die Nachricht durch, sobald Sie wieder frei sind. Etwas fachlicher: Die 
Nachrichten werden in einem Message-Queue gepuffert. Sie müssen natürlich minde¬ 
stens ein Telefon haben, sprich mindestens einen Message-Port für Ihren Task ein¬ 
richten. 

Typisch für einen Task ist, daß er auf eine Nachricht wartet, sprich der User endlich 
mal eine Taste drückt oder die Maus bewegt. Dahinter steckt: Alle Eingaben laufen 
über einen Task mit dem Namen »input.device«. Der Amiga sorgt schon dafür, daß die 
Nachricht zu Ihrem Task (Ihrem Fenster) gelangt, nur Sie müssen darauf warten. Die 
unfeinste Methode ist nun das sogenannte Polling. Dazu geht der Task einfach in eine 
Schleife, in der er den Message-Port so lange abfragt, bis dort eine Nachricht anliegt. 
Damit verbraucht er nur Rechnerzeit, die anderen Tasks dann fehlt. Besser ist es, eine 
Funktion mit dem Namen Wait zu benutzen. In diesem Fall wird der Task aus der Liste 
der aktiven Tasks gestrichen und geht auf die Liste der wartenden Tasks, wo er den 
Betrieb nicht mehr aufhält. Man sagt auch, der Task schläft. Wach bleibt aber das 
Betriebssystem, das ständig prüft, ob eine Nachricht für den Task kommt. Ist das der 
Fall, wird der Task wieder geweckt (er setzt nach dem Wait-Aufruf fort) und kann nun 
seine Nachricht behandeln, zum Beispiel auf einen Tastendruck so reagieren, wie es das 
Programm vorsieht. 

Die einfachste Form von Wait ist die Funktion WaitPort( ). Damit wartet man auf 
einen Port. Nun kann der Task aber mehrere davon haben, nicht aber auf alle Ports 
warten wollen. Für diesen Zweck gibt es die Signal-Bits. Jeder Port wird einem von 
32 Bit zugeordnet, jeder Task hat seine eigenen Signal-Bits. Ein Task kann allerdings 
nur maximal 16 Bit belegen, die anderen 16 braucht das System. Um nun auf eine belie¬ 
bige Port-Kombination zu warten, muß man nur die entsprechenden Bits »verodern« 
(ihre Werte addieren) und damit Wait( ) aufrufen (im Gegensatz zu WaitPort). Ein 
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Task sendet eine Message mit PutMsg( ). Erreicht diese Nachricht einen schlafenden 
Task (einen der Wait( ) aufgerufen hatte), wird er damit geweckt. Der Empfänger-Task 
wird nun mit GetMsg( ) die Nachricht lesen. Er sollte dann mit ReplyMsg( ) den 
Empfang quittieren. Letzteres ist bei einigen Tasks, zum Beispiel Intuition, Pflicht. 

Das Thema Multitasking ist hiermit noch bei weitem nicht vollständig behandelt, doch 
wir müssen uns jetzt erst einmal um einige andere Amiga-Spezialitäten kümmern, um 
danach wieder automatisch beim Multitasking zu landen. 


8.2 Screens, Windows und Gadgets 

Neben den Libraries gibt es noch drei grundlegende Dinge, die man kennen sollte, 
nämlich Screens, Windows und Gadgets. Der Amiga erlaubt, mehrere virtuelle Bild¬ 
schirme einzusetzen. Auf jedem Screen können sich wiederum mehrere Windows be¬ 
finden. Der äußerliche Unterschied: Ein Screen kann immer nur vertikal verschoben 
werden, seine vorgewählte Größe kann nicht geändert werden. Einen Screen zu schaf¬ 
fen, ist recht einfach. Man definiert eine Struktur, in der die gewünschten Parameter 
eingetragen werden. Dann ruft man OpenScreen() auf. Die Funktion gibt einen Zeiger 
zurück oder NULL, wenn etwas schiefging. Dieser Zeiger muß dann als ein Parameter 
in die Window-Struktur eingetragen werden. Die wesentlichen Screen-Parameter sind 
die Auflösung (der Amiga kennt derer vier) und die Tiefe, womit die Anzahl der Bit- 
Planes gemeint ist. Mit einer Tiefe von zum Beispiel 3 sind 2*3 = 8 Farben möglich. 

Ein Window wird sinngemäß wie ein Screen geöffnet, nur daß jetzt hierfür eine Win¬ 
dow-Struktur definiert werden muß. Generell ist das Window das Element, das am 
mächtigsten ist, und mit dem Sie wohl auch am meisten umgehen werden. Es ist zum 
Beispiel nicht unbedingt nötig, einen Screen zu öffnen. Trägt man nämlich in der Win¬ 
dow-Struktur für den Parameter Screen NULL ein (und als Typ WBENCHSCREEN), 
wird automatisch der Workbench-Screen benutzt. Die Struktur selbst ist nun folgende: 


LeftEdge, 

TopEdge: 

Width, Height: 

DetailPen: 

BlockPen: 


Linke, obere Ecke. 0,0 wäre links oben 

Breite und Höhe, mit denen das Fenster geöffnet werden soll 

Farbregister, mit denen die Details (zum Beispiel Gadgets) gezeichnet 
werden sollen (normalerweise 0). 

Farbregister zum Füllen von Flächen, normalerweise 1 


IDCMPFlags: 


siehe unten 
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Flags: 

siehe unten 

FirstGadget: 

Zeiger auf das erste User-Gadget (NULL wenn keine) 

CheckMark: 

Zeiger auf die Check-Marke für Menüs oder NULL, wenn die 
System-Marke benutzt werden soll. 

Title: 

Zeiger auf einen Text (Fenster-Titel) 

Sreen: 

Der Zeiger von OpenScreen, zu dem das Window gehören soll. 

BitMap: 

Zeiger auf eine Super-Bitmap (meistens NULL) 

MinWidth: 

Minimale Breite, auf die das Fenster verkleinert werden darf. 

MinHeight: 

Minimale Höhe 

MaxWidth: 

Maximale Breite 

MaxHeight: 

Maximale Höhe 

Type: 

Es gibt die Typen WBENCHSCREEN und CUSTOMSCREEN. 
Letzteren setzt man ein, wenn man einen eigenen Screen benutzt, 
sonst gilt der Workbench-Screen. 


Beachtenswert ist, daß man nach dem Öffnen diese Struktur nicht mehr braucht. 
Üblicherweise wird man sie aber modifizieren und damit ein anderes Fenster öffnen. 
Natürlich hat niemand Lust, in jedem Programm diese lange Struktur einzutippen. Sie 
wird deshalb einfach als Include-File abgelegt und nachgeladen. Dann hat man noch 
eine kleine Funktion, die die paar Parameter, die wirklich geändert werden müssen, 
einträgt. Womit eines klar sein dürfte: Mittels der Angaben in der Open-Struktur gene¬ 
riert Intuition seine eigene Struktur, auf die dann der OpenWindow() zurückgegebene 
Zeiger zeigt. Diesen Zeiger sollte man gut aufheben, er wird noch des öfteren ge¬ 
braucht. Nun aber zu den Dingen, die ich ausgelassen habe: 

IDCMP heißt Intuition Direct Communication Message Port. Damit wären wir wieder 
beim Multitasking. Intuition stellt uns aber ein sehr komfortables User-Interface zur 
Verfügung. Dieses sorgt unter anderem dafür, daß zwei Message-Ports (für jede Rich¬ 
tung einer) geöffnet werden, sofern wir beim Öffnen IDCMP-Flags setzen. Diese Flags 
sind Bits, mehrere Flags kann man setzen, indem man die Bits »verodert«. 




Screens, Windows und Gadgets 141 


Die Kommunikation zwischen Intuition und einem Window läuft nun im wesentlichen 
über sogenannte Gadgets. Das sind Bedienelemente. Typisch für ein Window sind zum 
Beispiel das Close-Gadget (links oben) oder das Size-Gadget (rechts unten), womit Sie 
ein Window schließen bzw. in der Größe verändern können. Es handelt sich hier um 
System-Gadgets (im Gegensatz zu den User-Gadgets). 

Beachten Sie bitte einen ganz wesentlichen Unterschied zum GEM des Atari ST. Bei 
den hier genannten System-Gadgets kümmert sich Intuition automatisch um die Aktio¬ 
nen, die der User mit den Gadgets anstellt, es sei denn, Sie verbieten das extra. Der 
User kann also ein Fenster verschieben oder seine Größe ändern, ohne daß Sie das in 
Ihrem Programm behandeln müssen. Im GEM ist es so, daß das AES (entspricht Intui¬ 
tion) dem Programm nur meldet, daß diese Aktion stattfindet. Das Programm muß 
dann selbst in einer Schleife ständig diese Meldungen abfragen und gegebenenfalls die 
entsprechenden Funktionen aufrufen. Wir sind hier also ein ganz riesiges Stück 
fortschrittlicher als im GEM, müssen aber auch wissen, wie man mit diesem komfor¬ 
tablen Instrument umgeht. Dazu mit Bild 8.1 wieder ein Beispiel. 


* vindovl 

* In diesen Files stecken diverse Deklarationen und Makros. 

* Schauen Sie mal rein! 

incdir ”:include/" 

include intuition/intuition.i 
include intuition/intuition_lib.i 
include exec/exec_lib.i 
include graphics/graphics_lib.i 

* Intuition Library oeffnen: 

* - 

lea intname.al 

moveq /0,d0 

CALLEXEC OpenLibrary 
tst.l d0 

beq abbruch 

move.l d0,_IntuitionBase ;Basis-Zeiger sichern 

* Graphics Library oeffnen 

* - 

lea grafname.al 

moveq /0,d0 

CALLEXEC OpenLibrary 
tst.l d0 

beq closeint 

move.l d0,_GfxBase ;Basis-Zeiger sichern 
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* Window oeffnen 


lea windovdef,a0 

CALLINT OpenWindow 
tst.l d0 
beq closegraf 

move.l d0,windowptr 


;zeige auf Window-Struktur 
;oeffne Window 
Iging was schief? 

;wenn ja 

;Window-Zeiger sichern 


* Text im Fenster zeichnen 


moveq /100,d0 
moveq /50,d1 
move.l windowptr.al 
move.l wd_RPort(a1),a1 
CALLGRAF Move 


X-Position 

Y 

Via Window-Zeiger 

Rast-Port-Adresse holen 
Funtion Move to X,Y 


move.l windowptr.al 
move.l wd_RPort(a1),a1 
lea msg,a0 
moveq /msglen,d0 
CALLGRAF Text 


;brauche wieder Rastport 

;Adresse Text 
;seine Laenge 
;und ausgeben 


* Auf Event warten (kann hier nur WINDOWCLOSE sein) 


move.l windowptr,a0 
move.l wd_UserPort(a0),a0 
move.b MP_SIGBIT(a0),d1 
moveq.1 /I,d0 
lsl.l dl.d0 
CALLEXEC Wait 


zeige auf Window-Struktur 
nun auf Message-Port 
Anzahl Signal Bits -> dl 
in Maske 

konvertieren 
Schlaf gut! 


* Fenster schliessen 


move.l windowptr,a0 
CALLINT CloseWindow 


;wir sind wieder wach 
;Fenster zu 


* Libraries schliessen 
«- 

closegraf 

move.l _GfxBase,al 
CALLEXEC CloseLibrary 


closeint 


move.l _IntuitionBase,a1 
CALLEXEC CloseLibrary 


abbruch 


move.l /0,d0 
rts 


;oder normales Ende 


W_Gadgets equ WINDOWSIZING!WINDOWDRAG!WINDOWDEPTH!WINDOWCLOSE 

W_Extras equ SMART_REFRESH!ACTIVATE 
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W_Title dc.b 

'Fenster-Titel 

,0 

uindowdef 

de .v 

200,50 

;links, oben 

de .v 

300,100 

;Breite, Hoehe 

dc.b 

-1,-1 

jPens des Screen 

de. 1 

CLOSEWINDOW 

jeinziges IDCMP Flag 

dc.l 

W Gadgets!W_Extras ;Windov Flags 

de. 1 

0 

;keine User-Gadgets 

de. 1 

0 

;keine User-Checkmark 

dc.l 

W_Title 

;Titel des Windov 

dc.l 

0 

;kein eigener Screen 

dc.l 

0 

;keine Super Bitmap 

de .v 

100,20 

;Min. Groesse 

de .v 

640,200 

;Max. 

de .v 

WBENCHSCREEN 

;Use Workbench Screen 

intname 

INTNAME 

;Name Intuition Lib (via Makro) 

grafname 

GRAFNAME 

;Name Graphics Lib 

msg 

dc.b 'Hello 

World! ' 

msglen 

equ *-msg 


_IntuitionBase 

ds.l 1 

;Speicher fuer Zeiger 

_GfxBase 

ds.l 1 


uindouptr 

ds.l 1 



Bild 8.1: Ein erstes Intuition-Window 


Das Programm soll ein Window auf den Schirm bringen und in das Window einen Text 
schreiben (zeichnen). Das Fenster soll auf dem Schirm verschiebbar sein, seine Größe 
darf geändert werden. Das Programm soll enden, wenn die Close-Box des Fensters 
angeklickt wird. 

Dazu öffne ich zwei Libraries, nämlich Intuition und Graphics. Generell braucht man 
immer beide, ihre Basis-Zeiger sollte man sofort sichern, die werden häufig benötigt. 
Die Exec-Library ist sowieso immer dabei. Das obligatorische 

move.l SysBase,a6 
jsr _LV0xxx(a6) 

ist im Makro 


CALLEXEC xxx 
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versteckt. Sinngemäß funktioniert der Makro CALLINT, der eine Funktion der Intui¬ 
tion-Library aufruft. Intuition ist für die komplexen Dinge wie Fenster zuständig, 
Graphics hingegen für die Grundroutinen wie Zeichnen von Linien, Flächen oder Tex¬ 
ten. Die beiden Instanzen entsprechen dem AES bzw. VDI des GEM des Atari ST. 

Um ein Window zu öffnen, reicht der einfache Aufruf, wie im Listing gezeigt. Alles 
weitere steht in der Struktur ab Label »windowdef«. Als einziges IDCMP-Flag habe ich 
CLOSEWINDOW angegeben. Das heißt, nur wenn der User das Fenster schließt, 
meldet mir das Intuition. Alle anderen Events (Ereignisse) behandelt Intuition selbst. 
Natürlich kann man noch weitere Events zulassen, zum Beispiel MOUSEBUTTONS 
oder MOUSEMOVE, um nur einige zu nennen. 

In der Folgezeile steht, was Intuition zu bearbeiten hat, nämlich Window_Gadgets und 
Extras. Ich habe das ein paar Zeilen höher als Equates hingeschrieben. Beide Equates 
hätten auch im »dc.l« stehen können, nur wäre dann das Listing zu breit geworden. In 
der ersten Equate-Zeile stehen die Window-Gadgets, die installiert werden sollen. Die 
symbolischen Namen (aus dem oben genannten Include-File) sind wohl eindeutig 
genug. 

In der nächsten Zeile habe ich dem Window noch zwei Eigenschaften verpaßt. Smart 
Refresh heißt, daß der betroffene Inhalt des Fensters gerettet werden soll, wenn es von 
einem anderen ganz oder teilweise überdeckt wird. Sobald das Fenster wieder oben 
liegt oder der abgedeckte Teil wieder sichtbar wird, zeichnet Intuition den Fenster¬ 
inhalt neu. Im Gegensatz dazu gibt es noch Simple Refresh. In diesem Fall meldet 
Intuition nur den »Schaden«. GEM kann übrigens nur letzteres. 

Nach dem Öffnen des Fensters kann man im Fenster zeichnen. Mit Move( ) wird die 
Zeichenposition gesetzt, mit Text( ) ab dieser Stelle ein String ausgegeben. In beiden 
Fällen muß man den Rast-Port wissen. Graphics benötigt immer die Adresse des Rast- 
Ports, dem ein Window zugeordnet ist. Ein Rast-Port ist vereinfacht ausgedrückt eine 
Struktur, die die Zeichenbedingungen etwas ausführlicher beschreibt als ein Fenster. 
Seine Adresse kann man sich mit 

move.l vd_RPort(A1),A1 

holen, wenn vorher der Window-Zeiger in Al geladen wurde. Dahinter steckt immer 
eine Technik, die ich Ihnen an den folgenden Zeilen (Auszug aus dem Listing) verdeut¬ 
lichen möchte: 

nove.l windowptr,a0 ;zeige auf Window-Struktur 

move.l wd_UserPort(a0),a0 ;nun auf Message-Port 

move.b MP_SIGBIT(a0),dl ;Anzahl Signal Bits -> dl 
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Unsere Window-Struktur im Listing ist nur eine Hilfskonstruktion. Nach dem Aufruf 
von OpenWindow erhalten wir in DO einen Zeiger auf eine ähnliche Struktur, die Intui¬ 
tion für uns anlegt. Unsere Struktur können wir danach wegwerfen, ändern, den 
Speicherbereich anders belegen oder sie modifiziert für ein weiteres Fenster benutzen. 

Wichtig ist, daß wir uns den Zeiger gut merken, hier in der Variablen »windowptr«. Die 
erste der drei Zeilen ist noch einfach: Der Zeiger wird in das Register AO geladen. Die 
Konstante »wd_UserPort« ist das Offset vom Beginn der Window-Struktur auf ein 
Langwort innerhalb der Struktur. Dieses Langwort ist aber selbst auch nur ein Zeiger 
auf eine andere Struktur, nämlich den Window-User-Port. Innerhalb dieser Struktur 
gibt es ein Byte, in dem das Message-Port-Signal-Bit notiert ist. Genau das brauchen 
wir. 


Auf diese Art greift man also auf einen der beiden IDCM-Ports zu. Intuition richtet 
automatisch zwei dieser Ports zu jedem Window ein. Der Empfangs-Port heißt User- 
Port, senden kann man über den WindowPort. In diesem Beispiel zwar überflüssig, 
aber um es mal zu zeigen: Benutzt man Wait( ), muß man sagen, bei welchen Signal- 
Bits (praktisch Semaphoren) man geweckt werden möchte. 

Da zu jedem Port ein Signal-Bit gehört, müssen wir natürlich feststellen, welches unse¬ 
rer ist. Im Feld MP_SIGBIT steht, welches Bit das ist (als Bit-Nummer), die Funktion 
Wait( ) erwartet aber eine Maske in DO, in der genau dieses Bit gesetzt ist. Deshalb 
lade ich das Register Dl mit der Bit-Nummer, lade dann DO mit 1 und schiebe nun mit 
LSL diese Eins auf den richtigen Platz. Sobald das Bit »klingelt«, wurde unser Window 
angesprochen. Da wir als Event nur CLOSEWINDOW zugelassen hatten, können wir 
uns weitere Tests sparen und mit dem Schließen des Windows sowie aller offenen Libs 
das Programm beenden. 




146 Ein Schnellkws in Sachen Intuition 




Kapitel 9 


Vom CLI-Task zum »Clickable Icon« 


CLI-Task 

Workbench-Task 

Startup-Code 


Icon-Editor 
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9.1 Programm-Betriebsarten 

Fast alle Programme, die wir bisher geschrieben haben, konnten wir nur mit ihren Na¬ 
men im CLI aufrufen. Das ist nicht die schlechteste Lösung, denn viele CLI-Komman- 
dos sind auch nur Programme dieser Art, doch Sie wissen selbst, daß der Amiga mehr 
kann. 

Sie wissen auch, daß jedes CLI (mit NEWCLI können Sie zusätzliche CLIs schaffen) 
ein Task ist. Unsere Programme waren für den CLI-Task, von dem aus sie aufgerufen 
wurden, praktisch nur Unterprogramme. Solange unser Programm lief, also zum Bei¬ 
spiel auf eine Eingabe wartete, war auch das CLI in diesem Unterprogramm und war¬ 
tete. 

Die nächsthöhere Stufe ist ein Programm, das im CLI mit »RUN Name« aufgerufen 
werden kann. Dieses Programm läuft dann wirklich als eigener Task, und das CLI ist 
wieder frei für andere Dinge. 

Die höchste Stufe bilden dann Programme, die man von der Workbench aus starten 
kann, indem man einfach mit der Maus auf ihr Icon klickt. Ziel dieses Kapitels ist es, 
ein solches Programm zu erstellen, und natürlich zu zeigen, wie man dazu Vorgehen 
muß. 

Sozusagen bei der Gelegenheit sollen gleich zwei Fliegen mit einer Klappe erschlagen 
werden, sprich, es gibt da noch eine Art von Programmen, nämlich solche, die sowohl 
vom CLI als auch von der Workbench aus gestartet werden können. Ich glaube, wir 
sind uns einig, daß jedes Workbench-Programm auch unter dem CLI laufen sollte, 
folglich können wir auf die Lösung »Nur Workbench« getrost verzichten. Wie Sie gleich 
sehen werden, ist die damit erzielbare Einsparung auch nur minimal. Fassen wir 
zusammen. Es gibt: 

1. CLI-Unterprogramme (Aufruf mit Namen) 

2. CLI-Tasks (Aufruf mit RUN Namen) 

3. Workbench-Tasks (Klick auf das Icon) 

4. Die Kombination von 2. und 3. 

Die Gruppen 1 und 2 unterscheiden sich nur minimal. Gruppe 1 benutzt für die Ein¬ 
gabe und Ausgabe das CLI-Window. Das Handle dafür wird mit der DOS-Funktion 
Input bzw. Output ermittelt. Gruppe 2 arbeitet nicht mit diesen Handles, sondern mit 
einem eigenen Fenster. Die Programme im Kapitel 5 gehören dazu. Probieren Sie es 
aus und starten diese Programme mit »RUN Name«. Achten Sie aber bitte darauf, daß 
Sie immer vorab erst mit der Maus das Fenster anklicken müssen, in dem Sie arbeiten 
wollen. Wenn Sie genau hinsehen, werden Sie feststellen, daß auf dem Schirm nach 
dem Aufruf auch »CLI2« steht. Praktisch heißt das: CLI 1 richtet für das Programm 
temporär (solange es läuft) ein neues CLI ein. 
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9.2 Der Startup-Code 

Workbench-Programme (Gruppe 3) müssen eine Zusatzbedingung erfüllen. Sie dürfen 
nicht einfach loslaufen, wann Sie wollen, sondern müssen sozusagen auf die Start¬ 
erlaubnis der Workbench warten. Deshalb müssen solche Programme zu Beginn auf 
eine Message (den Startbefehl) warten. Wenn Sie fertig sind, müssen Sie das der 
Workbench melden, indem Sie genau diese Message (die Sie sich gut gemerkt haben) 
an die Workbench zurückschicken. 

Wird dasselbe Programm vom CLI aus aufgerufen, entfällt natürlich diese Geschichte. 
Das heißt auch, daß unser Programm unterscheiden muß, von wo es aufgerufen wurde. 

Der Trick hinter der ganzen Geschichte ist der sogenannte Startup-Code. Der Name ist 
nicht ganz korrekt, hat sich jedoch so eingebürgert. Zum Start-Code gehört nämlich 
immer auch ein Ende-Code. Um nun beides in einen einzigen File packen zu können, 
den man bei HiSoft und SEKA als Include-File zuerst lädt und bei Metacomco mit dem 
Linker vor sein Programm setzt, kommt wieder ein kleiner Trick zum Tragen. 
Normalerweise hieße die Folge: 

- Start-Code 

- Unser Programmteil 

- Ende-Code 

Praktisch gehen wir aber so vor: 

Start-Code 
jsr _main 
End-Code 

jnain Unser Programmteil 
rts 

Sie wissen jetzt, warum ich in all meinen Listings die Label »_main« an den Anfang 
gesetzt habe (wenn Sie sie nicht sehen, _main steckt im Include-File OpenDOS.i). Bei 
Metacomco sollten Sie auf jeden Fall mit »_main« arbeiten, der Linker erwartet dies, 
wenn Sie »startup.o« einbinden. 

Auch dürfte jetzt klar sein, daß unsere Programme immer mit einem schlichten aber 
wichtigen »rts« enden müssen. Doch nun zur Praxis. Bild 9.1 zeigt das Listing des 
Startups. 

Im »ROM-Kernel-Manual, Libraries and Devices« finden Sie ein recht langes Assem- 
bler-Listing, das den Startup-Code für C-Programme bildet. Dieses Listing habe ich 
etwas umgestaltet und drastisch gekürzt. Wenn Sie noch einige der dort aufgeführten 
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Features einbauen wollen, zum Beispiel Alerts für den wohl sehr wahrscheinlichen Fall 
(???), daß sich die DOS-Lib nicht öffnen läßt, O.K., da ist die Quelle. 

* startup.i 



* Startup-Code fuer Assembler-Programme. Recht frei nach dem 

* Beispiel im ROM-Kernel-Manual Libraries and Devices, aber so 

* geschrieben, dass als Include-File brauchbar und auf das 

* wirklich Notwendige reduziert 

incdir 

”:include/” 


include 

include 

”exec/exec_lib.i” 
"libraries/dosextens.i 


movem.1 

clr. 1 

d0/a0,-(sp) 

_WBenchMsg 

jrette Kommandozeile 
isicherheitshalber 

* Teste, von wo wir gestartet wurden 


sub. 1 
CALLEXEC 
move.1 

al ,a1 

FindTask 

d0,a4 

;a1=0 = eigener Task 
;wo sind wir? 

;Adresse retten 

tst. 1 
beq.s 

pr_CLI(a4) 
fromWorkbench 

;Laufen vir unter WB? SEKA: $AC(a4) 

;venn so 

* Wir wurden vom 

CLI gestartet 


movem.1 

bra 

(sp)+,d0/a0 
run 

;Parms Kommandozeile holen 
;und starten 

* Wir wurden von 

Workbench gestartet 


fromWorkbench 

lea 

CALLEXEC 

lea 

CALLEXEC 

move.1 

pr_MsgPort(a4),a0 
WaitPort 

pr_MsgPort(a4),a0 
GetMsg 

d0,_WBenchMsg 

;SEKA: $5C(a4) 

;Warte auf Start-Message 
;sie ist da 
;hole sie 

;immer Msg sichern! 

movem.1 

(sp)+,d0/a0 

;bringe Stack i.O. 

run bsr.s 

_main 

;rufe unser Programm auf 

move.1 

d0,-(sp) 

;rette seinen Return-Code 

tst. 1 

WBenchMsg 

;gibt’s eine WB-Message 
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beq.s _exit 


;nein: dann war’s CLI 


CALLEXEC Forbid 

move.l _WBenchMsg(pc),a1 

CALLEXEC ReplyMsg 

exit 

move.l (sp)+,d0 
rts 

WBenchMsg ds.l 1 

cnop 0,2 


;keine Unterbrechung jetzt 
;hole die Message 
;und gib sie zurueck 


;hole Return-Code 
;das war’s 


Bild 9.1: Der Startiip-Code 


Kern der Angelegenheit sind diese Zeilen: 


sub.l al.al 

CALLEXEC FindTask 

move.l d0,a4 

tst.l pr_CLI(a4) 

beq.s fromWorkbench 


;a1=0 = eigener Task 
;wo sind wir? 

;Adresse retten 
[Laufen wir unter WB? 
;wenn so 


Die Exec-Funktion »FindTask« findet die Adresse einer Task-Kontroll-Struktur. 
Normalerweise übergibt man der Funktion die Adresse eines Strings mit dem Task- 
Namen im Register al. Ist dieser Zeiger Null, erhält man die Adresse des eigenen 
Tasks. Nun muß ich leider gestehen, daß hier »Task« nicht korrekt ist. Genauer behan¬ 
deln wir dieses Thema aber erst im Kapitel 14, jetzt nur soviel: Wir laufen unter einem 
DOS-Prozeß. Ein Prozeß ist so etwas Ähnliches wie ein Task, nur höherwertiger. 
»FindTask« gibt deshalb die Adresse unseres PLB (Prozeß-Leit-Block) zurück. Wenn 
Sie sich diese Struktur ansehen möchten: sie steht im Include-File »include/libraries/ 
dosextens.i«. 


Innerhalb dieser Struktur gibt es den Eintrag mit dem Offset »pr_CLI«. Das soll heißen 
»Pointer (Zeiger) auf den Command Line Interpreter«. Dieser Zeiger ist Null, wenn 
wir unter der Workbench laufen. 


Also geht es in diesem Fall zum Label »fromWorkbench« und da steht: 


fromWorkbench 

lea pr_MsgPort(a4),a0 

CALLEXEC WaitPort 
lea pr_MsgPort(a4),a0 

CALLEXEC GetMsg 
move.l d0,_WBenchMsg 


Warte auf Start-Message 
sie ist da 
hole sie 

immer Msg sichern! 
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Im PLB beim Offset »pr_MsgPort« steht die Adresse, die Exec-Funktion »WaitPort« 
sehen will. Dieser Aufruf läßt unseren Task warten, bis er an die Reihe kommt. Stellen 
Sie sich das so vor: Es gibt eine Liste aller laufenden Tasks. Exec sorgt dafür, daß einer 
nach dem anderen für eine gewisse Zeit an die Reihe kommt, denn praktisch kann 
immer nur ein Task laufen (wir haben nur einen 68000 im Amiga). Seinen Startbefehl 
erhält der Task über diesen Message-Port, genauer: nur die Nachricht, daß eine Mes¬ 
sage da ist. Deshalb muß man mit »GetMsg« diese Nachricht aus dem Port lesen. Sie 
steht danach im Register dO. Da wir diese Nachricht noch brauchen, sichern wir sie in 
der Variablen »_WBenchMsg«. 


Wenn unser Task unter der Workbench läuft, und er »geweckt« wurde, sind jetzt prak¬ 
tisch diese Zeilen interessant: 


run bsr.s _main 
CALLEXEC Forbid 
move.l _WBenchMsg,a1 
CALLEXEC ReplyMsg 


;rufe unser Programm auf 
;keine Unterbrechung jetzt 
;hole die Message 
;und gib sie zurueck 


Mit »bsr _main« wird nun endlich unser Programmteil aufgerufen. Danach erfolgen 
die Rückzugsgefechte, das, was ich in der Einleitung den Ende-Code genannt habe. Wir 
müssen uns bei der Workbench ordnungsgemäß abmelden, was an sich dadurch 
geschieht, daß wir mit »ReplyMsg« die ursprünglich beim Start erhaltene Message 
zurückgeben. Da auch andere Tasks theoretisch zur selben Zeit auf den PLB zugreifen 
können, könnte es sein, daß unsere Nachricht nicht ankommt oder schlimmer, das 
totale Chaos ausbricht. 


In einem Multitaskingsystem, in dem verschiedene Tasks auf gemeinsame globale 
Variable zugreifen können, gibt es deshalb immer einen Mechanismus, der einem Task 
für eine gewisse Zeit das alleinige Zugriffsrecht sichert. Diese Funktion heißt beim 
Amiga Forbid (verbiete mir Störungen). Genaugenommen ist diese Funktion recht 
gefährlich, denn sie schaltet das Multitasking aus. Es bleibt ausgeschaltet, solange der 
Task läuft oder bis er Wait (warte auf Nachricht) oder Permit aufruft. Da wir nach dem 
Forbid nur noch die Reply-Message zurückgeben und dann enden, ist das »Forbidding« 
hier vertretbar (und notwendig sowieso). Nach dem »bsr _main« hatten wir noch mit 

move.l d0,-(sp) 

den Return-Code unseres Programms gesichert. Es ist unsere Sache, was wir da 
zurückgeben wollen. Üblich ist Null für keinen Fehler. Dieses »dO« müssen wir natür¬ 
lich vor dem RTS wieder vom Stack holen. Genau so hatten wir gleich zu Anfang des 
Programms mit 

movem.l d0/a0,-(sp) ;rette Kommandozeile 

clr.l _WBenchMsg ;sicherheitshalber 
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die Länge und Adresse einer eventuellen Kommandozeile gesichert und die Variable 
_WBenchMsg auf Null gesetzt. Das Aufräumen des Stacks mit 

movem.l (sp)+,d0/a0 

erfolgt dann jeweils entweder im CLI- oder im Workbench-Zweig. Schauen wir uns 
zum Schluß noch an, was denn tatsächlich im Fall von CLI geschieht, so bleibt: 

run bsr.s _main ;rufe unser Programm auf 

rts ;das war’s 

Wenn Sie diesen Quelltext nun assemblieren, müßte das mit einer Ausnahme ohne 
Fehler über die Bühne gehen. Die Ausnahme ist das fehlende Label »_main«. 

Nun speichern Sie diesen File bitte unter dem Namen »startup.i« (notfalls finden Sie 
ihn auch auf der Diskette zu diesem Buch), im nächsten Abschnitt wollen wir ihn prak¬ 
tisch erproben. 


9.3 Multitasking-Demo 

Um nun einmal zu zeigen, daß einer unserer Tasks tatsächlich ständig läuft und etwas 
tut, wollen wir nun ein Programm schreiben, das in einem Window ständig den noch 
freien RAM anzeigt. Das Listing dazu bringt Bild 9.2. 


opt 1- ;nicht linken! 

* freejram 

incdir ”:include/” 


include startup.i 


;oder wie Sie ihn nennen 


include 

include 

include 

include 

include 


intuition/intuition.i 
intuition/intuition_lih•i 

exec/memory.i 
graphics/graphics_lib.i 
libraries/dos lib.i 


GRAFIC macro 

move.l vindovptr.al ;Adresse Window-Struktur 

move.l wd_RPort(a1),a1 ;von da auf Rast Port 

CALLGRAF \1 ;Grafik-Funktion 
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endm 


* DOS-Library oeffnen 


lea 

dosname,a1 


moveq 

/0,d0 


CALLEXEC 

OpenLibrary 


tst. 1 

d0 


beq 

abbruch 


move.1 

d0,_D0SBase 

;Basis-Zeiger sichern 

Intuition Library oeffnen: 


lea 

intname.al 


moveq 

/0,d0 


CALLEXEC OpenLibrary 


tst.l 

d0 


beq 

closedos 


move. 1 

d0,_IntuitionBase 

;Basis-Zeiger sichern 


* Graphics Library oeffnen 


lea 

grafname.al 


moveq 

/0,d0 


CALLEXEC 

OpenLibrary 


tst. 1 

d0 


beq 

closeint 


move.1 

d0,_GfxBase 

;Basis-Zeiger sichern 

Window oeffnen 

lea 

vindowdef,a0 

;zeige auf Window-Struktur 

CALLINT 

OpenWindow 

;oeffne Window 

tst.l 

d0 

;ging was schief? 

beq 

closegraf 

;wenn ja 

move.1 

d0.windowptr 

;Window-Zeiger sichern 

Hauptschleife 

op moveq 

/MEMF_PUBLIC,d1 

;freien RAM 

CALLEXEC 

AvailMem 

jeinlesen 

move. 1 

d0,d2 

;nach d2 

lea 

buffer,a0 

;in Hex-String 

bsr 

hex 


moveq 

/80,d0 

;X-Position fuer Text 

moveq 

/I9,dl 

; Y 

GRAFIC 

Move 

;Move TO X,Y 

lea 

buffer,a0 

;Text-Adresse 
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addq.1 

/2,a0 

;die 2 ersten Nibbles sind 

moveq 

/6,d0 

;eh 0, restliche 6 reichen 

GRAF IC 

Text 

;Text zeichnen 

move.1 

windowptr,a0 

;Von unserem Window 

move.1 

wd_UserPort(a0),a0 

;den Empfangsport 

CALLEXEC GetMsg 

jtesten 

tst.l 

d0 

;Haben wir Post? 

bne 

fini 

;kann nur CLOSEWINDOW sein 

move.1 

/25,dl 

; 25/50 « 1/2 Sekunde 

CALLDOS 

Delay 

;warten 

bra 

loop 

;und von vorn 

fini move.l 

d 0. a 1 

;Message ist in d0 

CALLEXEC ReplyMsg 

;antworten 

closewindow 

move.1 

windowptr,a0 

iFenster zu 

CALL INT 

CloseWindow 


closegraf 

move.l 

_GfxBase,a1 

;Die Libs schliessen: 

CALLEXEC CIoseLibrary 


closeint 

move.1 

_Intuitionßase,a1 


CALLEXEC 

CIoseLibrary 


closedos 

move.1 

_DOSBase,a1 


CALLEXEC 

CIoseLibrary 


abbruch 

moveq 

/0,d0 

;keinen Fehler melden 

rts 


;und Ende 


* Konvertiere d2.1 in ASCII-String ab (a0) 


#- 

hex 

moveq 

/8-1,dl 

;nun alle Nibble 

next 

rol. 1 

/4,d2 

;hole 1 Nibble 


move.1 

d2,d? 

;nach d? retten 


and.b 

/$0f,d3 

;maskiere es 


add.b 

/48,d5 

;in ASCII wandeln 


cmp. b 

/58,d3 

;ist es >9 ? 


bcs 

out 

;wenn nicht 


addq. b 

/7,d3 

;sonst muss es A-F sein 

out 

move .b 

d3,(a0)+ 

;1 Zeichen abspeichern 


dbra 

dl,next 

;next nibble 


rts 



W_Gadgets equ 

WINDOWDRAG!WINDOWDEPTH!WINDOWCLOSE 
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W_Extras equ 

SMART_REFRESH!ACTIVATE 

W_Title dc.b 

' Freier RAM z.1. ',0 

vindovdef 



de .v 

200,20 

links, oben 

dc.v 

220,24 

Breite, Hoehe 

dc.b 

-1,-1 

Pens des Screen 

de. 1 

CLOSEWINDOW 

einziges IDCMP Flag 

de. 1 

W Gadgets!W_Extras 

Window Flags 

de. 1 

0 

keine User-Gadgets 

de. 1 

0 

keine User-Checkmark 

de. 1 

W_Title 

Titel des Uindov 

de. 1 

0 

kein eigener Screen 

de. 1 

0 

keine Super Bitmap 

de .u 

100,20 

Min. Groesse 

dc.u 

640,200 

Max. 

dc.v 

WBENCHSCREEN 

Use Workbench Screen 

intname 

INTNAME 

Namen der Libs aus Makros 

grafname 

GRAFNAME 


dosname 

DOSNAME 


buffer ds.b 

8 


_IntuitionBase 

ds.l 1 ;Speicher fuer die Zeiger 

_GfxBase 

ds.l 1 


_D0SBase 

ds.l 1 


windovptr 

ds.l 1 



Bild 9.2: Ein Programm, das immer den freien Speicher anzeigt 


Zuerst möchte ich Ihnen etwas Taktik verdeutlichen, nämlich hiermit: 


* DOS-Library oeffnen : 

beq 

abbruch 

* Intuition 

Library oeffnen: 

beq 

closedos 

* Graphics Library oeffnen : 

beq 

closeint 

* Window oeffnen : 

beq 

closegraf 

closewindow 

Window schließen 



closegraf 

Grafic-Lib schließen 


closeint 

Intuition-Lib schließen 


closedos 

DOS-Lib schließen 



abbruch 

Programm-Ende 




Das Problem ist, daß ich immer nur die Libraries schließen darf, die ich vorher auch 
geöffnet hatte. Wenn man nun mehrere Libs der Reihe nach öffnet, dann muß man 
natürlich wissen, welche im Fehlerfall schon offen waren, nun also zu schließen sind. 
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Die Lösung ist ganz simpel. Die Schließ-Routinen werden in der umgekehrten Reihen¬ 
folge, wie die Open-Routinen geschrieben. Im Fehlerfall springt man dann nur noch 
zur Close-Routine, die nach der Close-Routine steht, deren Öffnen fehlschlug. Spielen 
Sie im obigen Beispiel mal einige Fälle durch; ich hoffe, es stimmt. 

Nachdem nun alle Libraries, die wir hier benötigen, geöffnet sind, kann es losgehen. 
Der Kern des Programms steckt in diesen Zeilen: 


loop rnoveq /HEHF_PUBLIC,d1 
CALLEXEC AvailMem 

move.l dJ3, d2 

lea buffer,a0 

bsr hex 


;freien RAH 
;einiesen 
;nach d2 
;in Hex-String 


Wir holen uns den freien Speicher, indem wir der Exec-Funktion »AvailMem« die 
Konstante »MEMF_PUBLIC« übergeben. Diese Konstante ist im Include-File 
»include/exec/memory.i« mittels EQU definiert. Sie werden dort auch noch einige 
andere Parameter finden. Machen Sie sich einmal den Spaß und ändern das Programm 
so, daß auch die Größen von Fast-RAM, Chip-RAM usw. angezeigt werden. 

Nun folgt die Hex-Konvertierung, die Sie schon aus Kapitel 5 kennen und die Ausgabe 
des Textes, wie im Beispiel von Kapitel 8. Neu ist nur der Makro GRAFIC, der mir 
einiges an Tipperei erspart. Anders ist auch das Warten auf ein Intuition-Event gelöst. 
Auch hier erwarten wir gemäß unserer Window-Definition nur eines, nämlich CLOSE- 
WINDOW. 


move.l windowptr,a0 
move.l wd_UserPort(a0),a0 
CALLEXEC GetMsg 
tst.l d0 

bne fini 


;Von unserem Window 
;den Empfangsport 
jtesten 

;Haben wir Post? 

;kann nur CLOSEWINDOW sein 


Wie Sie sehen, reicht es, einfach den Message-Port zu lesen. Ist der »Briefkasten« leer, 
ist dO null. Normalerweise ist diese Methode des sogenannten Pollings unschön, doch 
hier geht es, weil wir im Fall von keine Nachricht mit diesen Zeilen weitermachen: 

move.l /25,dl ;25/50 = 1/2 Sekunde 

CALLDOS Delay jwarten 

bra loop ;und von vorn 

Mit dem Aufruf der Delay-Routine geben wir nämlich den anderen Tasks für eine 
halbe Sekunde Zeit (aus CPU-Sicht die reinste Ewigkeit), selbst etwas zu tun. Wenn 
alle halbe Sekunde der neue Stand des RAM angezeigt wird, dürfte es wohl reichen. 
Wer schneller informiert sein will, kann dig Zeit natürlich kürzer wählen. 
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Wurde das Close-Gadget des Fensters angeklickt, dann haben wir eine Message erhal¬ 
ten und es erfolgt ein Sprung zum Label »fini«. Dort steht 

finl move.l d0,a1 ;Message ist in d0 

CALLEXEC ReplyMsg ;antuorten 

und das möchte ich Ihnen noch einmal besonders ans Herz legen. Wir müssen Intuition 
auf jede Nachricht antworten! Das geschieht ganz einfach durch den Vermerk »zurück 
an Absender«, sprich, wir senden die eben erhaltene Nachricht zurück. 

Ist das Programm (fehlerfrei) assembliert und heißt das Ergebnis »freejram«, dann 
können Sie jetzt ins CLI gehen und »run free_ram« tippen. Nun sollte das Fenster mit 
der Anzeige erscheinen. Um nun ein CLI-Kommando ausführen zu können, müssen Sie 
zuerst irgendwo im CLI-Fenster klicken. Geben Sie nun DIR ein, und Sie werden 
sehen, wie sich die Speicheranzeige ständig ändert, solange DIR läuft. Einen kleinen 
Fehler hat unser Programm noch. Wir wollen in sein Fenster nichts eingeben, warum 
also ist das Fenster aktiv, und warum müssen wir erst das CLI-Fenster anklicken? Die 
Lösung ist recht einfach. Ändern Sie die Zeile 

U_Extras equ SMART_REFRESH!ACTIVATE 

in 

W_Extras equ SMART_REFRESH 

Damit ist das Fenster nicht mehr aktiv, sein Titel wird dann grau geschrieben. Sie kön¬ 
nen es natürlich anklicken, wenn Ihnen die aktive Form besser gefällt. 


9.4 Icons und der Icon-Editor 

Um ein Programm, das mit einem ordentlichen Startup-Code versehen ist, von der 
Workbench aus starten zu können, benötigt es nur noch ein Icon. Damit ein Icon sicht¬ 
bar wird, muß es a) vorhanden sein (logisch) und b) in einem Directory stehen, das 
selbst ein Icon hat, sprich als Schublade sichtbar ist. Am einfachsten stellen Sie eine 
solche Schublade her, indem Sie auf der Workbench die Schublade »Empty« dupli¬ 
zieren. Sie können aber auch im CLI einfach tippen: 

copy empty.info test.info 

Kehren Sie mm zur Workbench zurück, so sehen Sie das neue Icon nicht. Schließen Sie 
dann das Disk-Fenster und öffnen es wieder. Nun ziehen Sie die Empty-Schublade 
etwas weg und die Test-Schublade wird sichtbar. 
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Jetzt brauchen wir ein Programm-Icon. Dazu nehmen Sie am besten auch ein vorhan¬ 
denes Icon, allerdings ist nicht jedes geeignet. Der Amiga kennt verschiedene Typen 
von Icons. Welche das sind und was sie für eine Bedeutung haben, erfahren Sie auto¬ 
matisch, wenn Sie den Icon-Editor starten. Für uns ist wichtig zu wissen, daß Pro¬ 
gramme vom Typ TOOL sein müssen. 

Geeignet ist zum Beispiel IconED selbst. Nehmen wir an, Sie haben das Directory (die 
Schublade) »test« schon erstellt und unser Programm hieße »free_ram«. Dann kopie¬ 
ren Sie zuerst das Programm mit 

copy freejram :test/free_ram 

Nun kopieren Sie ein Icon dazu (IconEd steckt im System-Ordner) 
copy :system/lconed.info :test/free_ram.info 

Nun sollten Sie auf der Workbench in der Schublade »test« ein Icon finden, das aus¬ 
sieht wie das von IconEd, aber den Titel »free_ram« zeigt. Das können Sie nun getrost 
anklicken, »free_ram« wird starten. 

Wenn Sie jetzt Ihrem Icon ein eigenes Aussehen verpassen wollen, rufen Sie IconEd 
auf. Im Disk-Menü wählen Sie LOAD und tippen dann in den Text-Requester 

:test/free_ram 

sprich immer den vollen Pfadnamen. Das Editieren ist simpel und im Prinzip selbst¬ 
erklärend. Probieren Sie einfach die verschiedenen Menü-Punkte aus. Wichtig zu wis¬ 
sen ist: Um ein Icon zeichnen/ändern zu können, müssen Sie immer das Menü Color 
anwählen und daraus die passende Farbe. Radieren können Sie mit der Hinter- 
grundfarbe. Gezeichnet/radiert wird mit der Maus. Die Unke Taste drückt den Stift auf 
das »Papier«. 

Sie können auch auf den Kopiervorgang ganz verzichten und ein Icon selbst im Editor 
erstellen. Sie müssen dann nur im Save-Requester den korrekten Namen eingeben, in 
unserem Beispiel also wieder 

:test/free_ram 

Ansonsten keine Sorge. Es können zwar die unmöglichsten Icons entstehen, aber 
editiert wird immer nur der Info-File. Ihrem Programm passiert nichts. 
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9.5 Langworte in Dezimalstrings wandeln 

Bei Betrachtung der Speicheranzeige hatte meine Frau Probleme, die Hex-Anzeige 
sagte ihr nichts, dezimal wollte sie es haben. Da kann man bekanntlich nichts machen, 
also hier die Lösung mit Bild 9.3. Für die Bindec-Routine bräuchten wir eine Langwort- 
Division. Die finden Sie in nahezu jedem 68000-Buch, deshalb hier zur Abwechslung 
einmal etwas anderes. 

Das Verfahren ist uralt, ich habe es schon im BASIC-Interpretern der ersten Stunde 
gesehen. Auf einem 68000 läuft es besonders schnell, da dieser es mit seinen raffinier¬ 
ten Adressierungsarten direkt unterstützt. Das Prinzip heißt Division durch fort¬ 
laufende Subtraktion. Nehmen wir an, die Zahl hieße 321. Dann kann ich davon 3 mal 
100 subtrahieren, beim vierten Versuch gibt es einen Unterlauf. Ich zähle nun, wie oft 
ich bis zum Unterlauf brauche (4 mal), subtrahiere davon wieder 1 und habe das erste 
Digit (die 3). Nun muß ich allerdings auch auf die verbleibende Zahl wieder 100 addie¬ 
ren, blieben 21. Von dieser 21 subtrahiere ich nun lOer-weise. Das bringt beim dritten 
Versuch den Unterlauf, minus 1 ergibt das Digit 2. 

Unser Langwort ist nun allerdings für Zahlen von gut +/- 2 Milharden gut, womit 
unsere Zahlenreihe nicht bei 100 sondern bei 10 000 000 beginnen muß. Diese Kolonne 
finden Sie in der Tabelle. Merke: Tabellenzugriff ist immer schneller als die rechneri¬ 
sche Ermittlung der Zahl. Neu ist noch, daß ich hier auf Vorzeichen achte. Im Fall 
negativer Zahlen wird eine positive erzwungen (neg.l) und in d3 dieser Fall notiert. 
Später, nachdem die führenden Nullen durch Blanks ersetzt wurden, wird dann ein 
Minus-Zeichen in den Puffer geschrieben. Beachten Sie bitte, daß Sie hier zehn Stellen 
mittels _LVOWrite ausgeben sollten. 


* Konvertiere d2.1 -> Dec-String 


decl 

clr.b 

d5 


tst.l 

d2 


bpi 

plus 


neg.l 

d2 


move.b 

/I ,d3 

plus 

moveq 

/7,d0 


lea 

buffer+1,a0 


lea 

pwrof10,a1 

next 

moveq 

/’0’,dl 

dec 

addq 

/I, dl 


sub. 1 

(al),d2 


bcc. s 

dec 


subq 

XI, dl 


add.l 

(al),d2 


move.b 

dl,(a0)+ 


lea 

4 (a 1), a 1 


ab (a0) 

;0 « positive Zahl 
;Zahl positiv 
;wenn so 
;sonst wandeln 
[markiert negative Zahl 
;8 Digits konnvertieren 
;+1 f. Platz f. Vorzeichen 
[Tabelle 

;Fange mit Digit ’0’ an 
;Digit + 1 
;noch drin? 

;uenn so 

[korrigiere Digit 
;den auch 
[Digit -> Buffer 
;next pouer_10 
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dbra 

d0,next 

for 8 Digits 


lea 

buffer,a0 

Nun 0-Unterdr. u. 

rep 

move.b 

/’ \(a0) + 

fuehrende Nullen 


cmp. b 

/’0',(a0) 

durch Blanks 


beq 

rep 

ersetzen 


tst. b 

d3 

war Zahl negativ? 


beq 

done 

uenn nicht 


move.b 

/'-■,-l(a0) 

sonst - vorsetzen 

done 

rts 



pvrof10 

de. 1 

10000000 



dc.l 

1000000 



de. 1 

100000 



dc.l 

10000 



dc.l 

1000 



de. 1 

100 



dc.l 

10 



dc.l 

1 



Vorz. 


Bild 9.3: Routine zur dezimalen Darstellung von »Longs< 
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In diesem Kapitel soll der Befehlssatz des 68000 im Überblick vorgestellt werden. Zu 
jedem einzelnen Befehl finden Sie die syntaktischen Formen und die erlaubten Adres¬ 
sierungsarten im Anhang Al. Dort ist auch beschrieben, welche Operandenlängen 
(Byte, Word, Long) jeweils zulässig sind. Hier geht es primär um die Thematik »was 
gibt es, und wofür braucht man es«. 


10.1 Transfer-Befehle 


Befehl 

Bedeutung 

EXG 

LEA 

LINK 

Austausch von Registerinhalten 

Laden eines Registers 

Lokalen Stack aufbauen 

MOVE 

MOVEA 

MOVEM 

MOVEP 

MOVEQ 

Übertragen (kopieren) von Daten 

Übertragen (kopieren) von Adressen 

Übertragen (kopieren) mehrerer Register 
Übertragen (kopieren) von Daten zur Peripherie 
Übertragen (kopieren) von Konstanten »Quick« 

PEA 

SWAP 

UNLK 

Adresse auf den Stack bringen 

Vertauschen der Worte eines Registers 

Abbau des lokalen Stacks (siehe LINK) 


Auffallend sind sicherlich die vielen Varianten des MOVE-Befehls. Hier sollten Sie 
einmal Ihren Assembler testen. Gute Assembler akzeptieren auch ein MO VE, wo man 
eigentlich MOVEA hätte schreiben müssen. Sehr gute Assembler geben sogenannte 
Warnings aus, wenn Sie nicht optimal programmieren, hier also anstatt eines zulässigen 
MOVEQ nur ein einfaches MO VE schreiben würden. 


10.1.1 LINK und UNLINK 

Besonders erwähnenswert sind sicherlich die Befehle LINK und UNLK (Unlink). Mit 
diesen Befehlen ist der 68000 besonders gut auf die Aufgabenstellung von Hoch- 
sprachen-Compilern vorbereitet. Hier ergibt sich immer das Problem, daß in Prozedu¬ 
ren und Funktionen lokale Variable geschaffen werden müssen, die nur solange existie¬ 
ren sollen, wie die Prozedur (Funktion) aktiv ist. Typisch werden deshalb solche Varia¬ 
blen auf dem Stack abgelegt. 




Transfer-Befehle 165 


Ideal ist es nun, wenn man mit nur einem Befehl den passenden Stackbereich reservie¬ 
ren und dann später auf genauso einfache Art wieder freigeben kann. Genau das bieten 
die Befehle LINK und UNLK. Wenn nun eine Prozedur (Unterprogramm) eine wei¬ 
tere Prozedur aufruft und diese dann eine dritte usw., und jede dieser Prozeduren mit 
dem eigenen lokalen Stack arbeitet, dann entsteht sozusagen eine verkettete Liste, eng¬ 
lisch »linked Hst«. Daher rühren auch die Namen LINK und UNLK. Schauen wir uns 
jetzt einmal an, wie das funktioniert. Die Syntax des Befehls lautet 

LINK An./Adrepdistanz 

Ein Beispiel: 

UNK A6./50 

In diesem Fall wird zuerst A6 auf dem Stack abgelegt, praktisch der Befehl 
move.l a6,-(sp) (Schritt 1) 

ausgeführt. Nun wird der Stackpointer in das soeben gerettete Register kopiert, sprich 
move.l sp,a6 (Schritt 2) 

Zuletzt wird die Adreßdistanz auf den Stackpointer addiert, das heißt 
add.l /Adr_Dist,sp 

Damit hätten wir den lokalen Stack für ein Unterprogramm. Übhcherweise wählt man 
die Adreßdistanz negativ, da der Stack bekanntlich zu fallenden Adressen hinwächst. 
Mit UNLK wird der ursprüngliche Zustand wiederhergestellt. Praktisch wirkt UNLK 
wie 


move.l a6,a7 
move.l (sp)+,a6 

Für das Hauptprogramm oder allgemein das aufrufende Unterprogramm hat somit das 
Adreßregister und der Stackpointer wieder seinen ursprünglichen Wert. 

Zu beachten ist noch, daß das Adreßregister nach dem LINK-Befehl eine Kopie des 
Stackpointers hält. Somit kann das Unterprogramm sehr einfach auf Daten des aufru¬ 
fenden Programms zugreifen, wenn dieses die Daten vorher auf den Stack gepackt hat. 
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10.2 Arithmetische Befehle 


Befehl 

Bedeutung 

ADD 

Addition von Daten 

ADDA 

Addition von Adressen 

ADDI 

Addition einer Konstanten 

ADDQ 

Addition einer Konstanten »Quick« 

ADDX 

Addition mit Übertrag-Bit 

CLR 

Löschen eines Operanden 

CMP 

Vergleich zweier Daten 

CMPA 

Vergleich zweier Adressen 

CMPI 

Vergleich mit einer Konstanten 

CMPM 

Vergleich zweier Daten im Speicher 

DIVS 

Division mit Vorzeichen 

DIVU 

Division ohne Vorzeichen 

EXT 

Vorzeichenrichtige Erweiterung 

MULS 

Multiplikation mit Vorzeichen 

MULU 

Multiplikation ohne Vorzeichen 

NEG 

Negation 

NEGX 

Negation mit X-Bit 

SUB 

Subtraktion von Daten 

SUBA 

Subtraktion von Adressen 

SUBI 

Subtraktion einer Konstanten 

SUBQ 

Subtraktion einer Konstanten »Quick« 

SUBX 

Subtraktion mit X-Bit (Borgen) 

TST 

Teste Operanden gegen Null 

ABCD 

Addition von BCD-Zahlen 

NBCD 

Negation von BCD-Zahlen 

SBCD 

Subtraktion von BCD-Zahlen 


Auch hier können gute Assembler wieder glänzen. Zumindest sollten sie mit ADD ein¬ 
verstanden sein, wenn eigentlich ADDA oder ADDI erforderlich ist. Sinngemäßes gilt 
für CMP und SUB. 

Besonders zu loben ist hier der 68000 wegen zweier Eigenschaften. Zuerst: Die arith¬ 
metischen Operationen sind auf einer Breite von 32 Bit möglich. In diesem Sinn ist also 
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der 68000 ein echter »32-Bitter«. Sein Datenbus ist zwar nur 16 Bit breit, was dazu 
führt, daß Langworte in »zwei Portionen« transportiert werden, das interessiert aber 
nur sekundär. Primär ist wichtig, daß damit mathematische Operationen wesentlich 
einfacher zu programmieren sind als auf CPUs, die nur 16 oder gar nur 8 Bit breite 
Operanden zulassen. Sekundär sollte man natürlich darauf achten, daß die Daten so 
lange als möglich in Registern gehalten werden, denn dann entfällt auch der relativ 
zeitaufwendige Transfer über den Datenbus. Bei der hohen Geschwindigkeit des 68000 
sollte man das allerdings nicht überbewerten. Nur in sehr rechenintensiven Routinen 
könnte damit etwas erreicht werden. 


10.2.1 BCD-Arithmetik 

Die BCD-Arithmetik des 68000 wird jeder schätzen, der schon einmal auf einer ande¬ 
ren CPU so etwas programmieren mußte. Eine BCD-Ziffer steht immer in einem 
Halb-Byte (4 Bit). Da sich damit bekanntlich die Zahlen 0 bis 15 darstellen lassen, hier 
aber nur 0 bis 9 gültig sind, gibt es beim Überlauf einige Probleme. Bei anderen CPUs 
muß man diesen Fall mit Hilfe des sogenannten Half-Carry-Flags testen; hier kann 
man einfach addieren. Da als Operandengröße immer nur Byte zugelassen ist, gibt es 
den Überlauf nach 99. Dieser geht aber automatisch in das X-Flag und wird auch 
automatisch immer mitaddiert. Hier ein Beispiel für die Addition zweier 6-stelliger 
Zahlen in je 3 Byte. 


Zahl 

Wert 

im Speicher auf Adressen 

1 

123456 

12 auf 1001, 34 auf 1002, 56 auf 1003 

2 

654321 

65 auf 2001, 43 auf 2002, 21 auf 1003 


Wie üblich muß man rechts (bei den Einern) mit der Addition beginnen. Daher ist als 
Speicheradressierungsart hier auch nur »ARI mit Predekrement« erlaubt. Das Pro¬ 
gramm sähe dann so aus: 

move 4"l004,a1 
move /2004,a2 
move /4,CCR 

ABCD -(a1),-(a2) 

ABCD -(a1),-(a2) 

ABCD -(a1),-(a2) 

Zu beachten ist dabei dreierlei: 

1. Wegen des Predekrements muß das Byte mit dem »Einer« auf einer ungeraden 
Adresse liegen. 
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2. Um nicht beim ersten Mal ein zufälliges X-Flag mitzuaddieren, muß man es 
löschen. 

3. Um ein Null-Ergebnis erkennen zu können, sollte man vorher das Z-Flag setzen. 

Die Punkte 2 und 3 lassen sich mit der Anweisung »move #4,CCR« sehr einfach 
zusammen erledigen. Eines bleibt Ihnen allerdings nicht erspart. Sie müssen schon 
garantieren, daß die Zahlen BCD-Zahlen sind (Abfrage beim Laden). Größere Werte 
als 9 werden nämlich schlicht falsch addiert. 


10.3 Logische Befehle 


Befehl Bedeutung 


AND 

Logisch UND 

ANDI 

Logisch UND mit einer Konstanten 

EOR 

Logisch XOR 

EORI 

Logisch XOR mit einer Konstanten 

NOT 

Logisch NICHT (Einerkomplement) 

OR 

Logisch ODER 

ORI 

Logisch ODER mit einer Konstanten 


Zu diesen Befehlen könnte man vielleicht nur noch anmerken (Sie wissen es schon), 
daß sie bitweise wirken. 


10.4 Bit-Befehle 


Befehl 

Bedeutung 

BCHG 

Ändere (kippe) ein Bit 

BCLR 

Lösche ein Bit 

BSET 

Setze ein Bit 

BTST 

Prüfe ein Bit 

TAS 

Teste und setze Bit 7 eines Byte-Operanden 


Die Bit-Befehle halten immer den vorherigen Zustand im Z-Flag fest, führen also zwei 
Operationen aus. Diese Eigenschaft, und ganz besonders die Fähigkeit von TAS sind 
ein gutes Beispiel für eine besondere Fähigkeit des 68000, nämlich die Unterstützung 
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von Multitasking. Mit dem TAS-Befehl wird Bit 7 eines Byte-Operanden im Speicher 
abgefragt und das Ergebnis wie üblich im Z-Flag notiert. Dann wird eine 1 in Bit 7 
geschrieben. Die ganze Folge, also Lesen des Operanden, Abfrage und Zurück¬ 
schreiben ist unteilbar, sprich kann nicht durch einen Interrupt unterbrochen werden. 
Solche unteilbaren Befehle sind in einem Multitasking-System sehr wichtig. Hier wären 
zum Beispiel Aufgaben wie Prozeßumschaltung, Synchronisation von Prozessen und 
ähnliche zu nennen. 


10.5 Schiebe- und Rotierbefehle 


Befehl 

Bedeutung 

ASL 

Arithmetische Verschiebung nach links 

ASR 

Arithmetische Verschiebung nach rechts 

LSL 

Logische Verschiebung nach links 

LSR 

Logische Verschiebung nach rechts 

ROL 

Rotieren links herum 

ROR 

Rotieren rechts herum 

ROXL 

Rotieren mit X-Bit links 

ROXR 

Rotieren mit X-Bit rechts 


Anzumerken ist hierzu, daß mit einem Befehl um bis zu 31 Bit geschoben/rotiert wer¬ 
den kann. Andere CPUs schaffen mit einer Anweisung immer nur ein Bit. Zwischen 
ASL und LSL besteht praktisch kein Unterschied, wohl aber einer zwischen ASR und 
LSR, wie das folgende Bild zeigt: 


ASR 


LSR 


•>| Operand 


0->| Operand 



C 

X 

c 

X 


Die Zeichnung soll zeigen, daß beim ASR das Vorzeichen-Bit immer wiederhergestellt, 
praktisch also nicht geschoben wird. Beim LSR wird hingegen ein Null-Bit nachge¬ 
schoben. Beim Linksschieben wird sowohl beim ASL als auch beim LSL ein Null-Bit 
rechts eingespeist. 
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10.6 Programmsteuer-Befehle 


Befehl 

Bedeutung 

Bcc 

Verzweige bedingt 

BRA 

Verzweige immer 

BSR 

Verzweige zu einem Unterprogramm 

CHK 

Checke Datenregister gegen Grenze 0 und andere 

DBcc 

Bedingte Schleife 

JMP 

Sprung zu einer Adresse 

JSR 

Sprung zu einem Unterprogramm 

NOP 

Keine Operation 

RESET 

Rücksetzen der Peripherie 

RTE 

Rückkehr von einer Exception 

RTR 

Rückkehr mit Laden der Flags 

RTS 

Rückkehr aus einem Unterprogramm 

Scc 

Setze ein Byte bedingt 

STOP 

Halte Programm an 

TRAP 

Gehe in Exception 

TRAPV 

Gehe in Exception, wenn V-Flag gesetzt 


Zu beachten wäre hier der Unterschied zwischen den Verzweigungs- und den Sprung¬ 
befehlen. Erstere sind immer relativ zum aktuellen PC, allerdings auf einen Adreßbe- 
reich von +-32 Kbyte begrenzt. Die Sprungbefehle JMP und JSR reichen über den 
vollen Adreßbereich von 16 Mbyte. 

CHK testet ein Datenregister gegen zwei Grenzen, nämlich 0 und eine im Operanden 
angegebene Grenze. Spricht der Test an, wird eine Exception ausgelöst. Damit läßt sich 
sehr einfach eine Bereichsprüfung, zum Beispiel von Array-Indizes, realisieren. 

Wenn Sie nun richtig mitgezählt haben, waren das 56 Befehle. Im Vergleich mit ande¬ 
ren CPUs ist das relativ wenig, doch das täuscht. Die meisten der 12 Grund¬ 
adressierungsarten können auf den Quell- und den Zieloperanden angewendet werden, 
womit sich über 1000 Varianten ergeben. Andere CPUs geben einigen dieser Varianten 
eigene Befehlsnamen, womit zwar nicht die Leistung aber das Lernpensum des Pro¬ 
grammierers gesteigert wird. 




Hintergrundwissen 171 


10.7 Hintergrundwissen 

In diesem Abschnitt soll etwas Hintergrundwissen zum 68000 vermittelt werden. Das 
brauchen Sie zwar nicht unbedingt zum Programmieren, aber sicherlich ist Ihnen auch 
wohler, wenn Sie wissen, warum Sie was tun. 

Wahrscheinlich haben Sie beim Lesen des Buchs auch schon gemerkt, daß ich ein 
68000-Verehrer bin. Das ist nun nicht so aus der Luft gegriffen, sondern basiert auf 
langjähriger Erfahrung in der Programmierung anderer CPUs, nach dem Motto: Wer 
das Schlechte kennt, weiß das Gute zu schätzen. 

Der 68000 ist der erste Mikroprozessor, dessen Befehlssatz an den der Mini-Computer 
angelehnt ist. Wenn man bedenkt, daß so moderne Rechner wie der Amiga mit seinem 
Hauptspeicher von 1-4 Mbyte (und 256 Kbyte im ROM) den Minis der 70er Jahre 
inzwischen überlegen ist, ein 68020-System inzwischen schon eine VAX in Teil¬ 
bereichen schlägt, dann ist dieser Befehlssatz auch die einzige Alternative. Leistungs¬ 
fähige Rechner brauchen nämlich sehr komplexe System-Software, die nur sicher und 
effektiv zu erstellen ist, wenn die CPU die entsprechenden Grundlagen bietet. 


10.7.1 Die innere Struktur des 68000 

Prinzipiell besteht eine CPU immer aus einem Steuerwerk und einem Rechenwerk, 
man sagt auch »Control Logic« und »Arithmetic Logic Unit« (ALU). Das Steuerwerk 
besteht aus 

- Befehls-Register und 

- Befehls-Decoder 

Der Befehls-Decoder gibt seine Ergebnisse an die Ausführungseinheit, wo er zum Bei¬ 
spiel ALU-Funktionen oder Registerauswahl anstößt. Kern der Sache ist nun die 
Befehlsdecodierung. Die ersten Mikroprozessoren, wie zum Beispiel der legendäre F8, 
waren im Prinzip nichts weiter als programmierbare Logikbausteine. Bestimmte Bit¬ 
muster an den Eingängen erzeugen da andere Bitmuster an den Ausgängen. In diesem 
Sinn waren Befehle auch nur Bitmuster, die per Hardware (mit vielen Gattern) deco¬ 
diert wurden. Die Technik läßt sich bei einer 8-Bit-CPU vielleicht heute noch vertreten, 
führt aber bei einem so mächtigen Befehlssatz wie dem des 68000 schnell in eine Sack¬ 
gasse. Die Hardware wird dann nämlich bald unüberschaubar, verbraucht sehr viel 
Platz und ist kaum noch zu ändern. Der Ausweg ist der sogenannte Mikro-Code. 

Vereinfacht ausgedrückt heißt das, daß die Befehle des 68000, wie wir sie kennen, aus 
Sicht der CPU schon eine Hochsprache sind. Die CPU übersetzt mittels eines Pro¬ 
gramms diese von außen kommenden Makro-Befehle in eine Folge von internen Mi¬ 
kro-Befehlen. Das Steuerwerk der CPU ist demnach nicht als Hardware-Logik sondern 
als Programm ausgelegt. Dieses Programm befindet sich in einem ROM-Bereich auf 
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dem CPU-Chip. Da aber letztendlich doch Hardware in der CPU anzusprechen ist, 
ergibt sich ein Problem. Es sind bei jedem Befehl sehr viele »Bits« zu setzen, zum Bei¬ 
spiel schon 64, wenn zwei Register angesprochen werden. Macht man nun den Mikro- 
Code sehr schmal (zum Beispiel 4 Bit breit), benötigt man sehr viele Mikro-Zyklen, 
also viel Zeit zur Auflösung eines Makro-Befehls. Man spricht hier vom vertikalen 
Mikro-Code. Macht man den Mikro-Code horizontal breiter, entstehen weniger 
Zyklen. Jetzt ist aber der Decoder (zeit)aufwendiger. Man kann nun zwischen beiden 
Arten (vertikal oder horizontal) einen Kompromiß finden oder - noch besser - beide 
miteinander kombinieren. 

Genau das macht der 68000. Es gibt einen Mikro-Code-ROM (Befehlsbreite 9 Bit) und 
einen Nano-Code-ROM (70 Bit). Die Mikro-Codes sind im Prinzip nur Zeiger auf die 
Nano-Codes, womit sich eine sehr schnelle Decodierung ergibt, ähnlich, als wenn man 
in einem Buch nicht alle Seiten durchblättert, sondern zuerst im Inhaltsverzeichnis 
nachsieht. 

Trotzdem ist die reine Hardware-Logik schneller, weil es dort prinzipiell keine Such¬ 
zeiten gibt. Um diesen Nachteil auszugleichen, hat man sich etwas einfallen lassen, was 
Prefetch heißt. Prefetch bedeutet soviel wie »vorab holen«. Ein Befehl kann aus bis zu 
fünf Worten bestehen. Der allgemeine Zyklus lautet 

- Holen 

- Decodieren 

- Ausführen 

Überlappt man diese Vorgänge, spart man natürlich Zeit. Praktisch holt der 68000 bei 
der Abarbeitung eines Befehls schon das nächste Befehlswort und das darauffolgende. 
Dann wird immer ein neues Wort eingelesen, wenn/während eins abgearbeitet wird. 


10.721 User- und Supervisor-Modus 

Wie schon geschildert, gibt es beim 68000 den User- und den Supervisor-Modus. Der 
Vorteil dieser Trennung ist klar. Kernroutinen des Betriebssystems können nicht durch 
einen Fehler in einem User-Programm gestört werden. Nur dieses ermöglicht uns 
»Usern« überhaupt, solchen Fehlern auf die Spur zu kommen. Denn wie soll zum Bei¬ 
spiel ein Debugger uns die Registerinhalte anzeigen, wenn die dafür erforderlichen 
Betriebssystem-Routinen durch das fehlerhafte Programm zerstört wurden? 

In welchem Modus sich der 68000 befindet, entscheidet nur ein Bit, nämlich das S-Bit 
im Statusregister. Wenn der Amiga durch einen Kaltstart (Einschalten) oder Warm¬ 
start (Reset-Taste) anläuft, befindet er sich automatisch im Supervisor-Modus. Der 
Übergang vom Supervisor- in den User-Modus kann erfolgen durch 

- RTE 

- Änderung des Supervisor-Bits (MOVE #K,SR / ANDI #K,SR u.a.) 
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Vom User-Modus in den Supervisor-Modus gelangt man durch 

- Interrupt 

- Trap-Befehl 

- Exception (zum Beispiel Adreß-Error) 

Im User-Modus stehen alle acht Datenregister, die sieben Adreßregister AO bis A6, der 
Stackpointer (USP) und der PC zur Verfügung. Keinerlei Zugriff besteht auf den 
Supervisor-Stackpointer (SSP). 

Eingeschränkt ist der Zugriff auf das Statusregister. Dieses besteht aus dem Supervisor- 
Byte, auch System-Byte genannt, und dem User-Byte (CCR = Condition Code Regi¬ 
ster). Auf das CCR besteht voller Zugriff, auf das System-Byte kann im User-Modus 
nur lesend zugegriffen werden. 

Trace-Bit 

Einen besonderen Komfort bietet das Trace-Bit. Ist dieses Bit (Bit 15 im Statusregister) 
gesetzt, geht der 68000 nach jedem Befehl in eine Exception, sprich springt zur 
Adresse, die im Trace-Vektor (Vektor 9 auf Adresse $24) eingetragen ist. Damit ist 
eine Einzelschrittbearbeitung möglich. Die Routine, auf die der Trace-Vektor zeigt, 
kann dann zum Beispiel die Registerinhalte anzeigen. Anders ausgedrückt: Der schwie¬ 
rigste Teil eines Debuggers ist beim 68000 schon eingebaut. Sie können sich sicherlich 
vorstellen, daß Tracing ohne dieses Feature recht aufwendig zu programmieren ist. 
Man muß dann nämlich im zu testenden Code immer auf den nächsten Befehl einen 
Sprung zur Trace-Routine legen, dann diesen Befehl wieder durch das Original erset¬ 
zen, den Trace-Sprung verlegen usw. Dazu muß man natürlich wissen, wieviel Bytes 
jeder Befehl belegt, sprich einen Disassembler mitlaufen lassen. 


10.73 Die Exceptions 

Wir haben nun Exceptions schon so oft angewandt, ohne es zu merken (Exec arbeitet 
damit), daß wir uns dieses wichtige Feature einmal genauer ansehen sollten. 

Eine Exception ist eine Ausnahme, wenn man einmal nur das Wort als solches über¬ 
setzt. In den Ausnahmezustand kann der 68000 auf drei Arten gebracht werden: 

1. Durch externe Signale (Interrupt, Busfehler, Reset) 

2. Durch Fehler (zum Beispiel Adreßfehler) 

3. »Mit Absicht« 

Der dritte Fall wird häufig von Exec genutzt, der mit den sogenannten Trap-Befehlen 
Exceptions auslöst. Wenn wir selbst damit arbeiten wollen, sollten wir besser einen 
Exception-Vektor von Exec anfordern. Andernfalls gibt es bestimmt Zusammenstöße 
mit dem Betriebssystem. Wer vom Atari ST oder Macintosh her kommend den ein- 
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fachen und häufigen Umgang mit den Traps vermißt, sei darauf hingewiesen, daß in 
einem Multitasking-System das Betriebssystem doch etwas komplizierter ist. Reset oder 
Interrupt sind auch noch einfach zu erklären, dazu muß man nur die entsprechenden 
Eingänge des 68000 ansteuern. 

Bus-Error 

Der Busfehler ist schon etwas komplizierter. Bei den »68000ern« gibt es Hardware¬ 
beschaltungen (MMU), die zuerst dafür sorgen, daß die Adressen, die der 68000 gene¬ 
riert, auch die richtigen Speicherchips ansprechen. So eine MMU hat immer einen 
Fehler-(Fault)Ausgang, der dann aktiviert wird, wenn eine nicht existierende Adresse 
angesprochen wird. 

Was passiert bei einer Exception? 

Die Frage kann man ä la Radio Erivan beantworten: Es kommt darauf an... Tatsächlich 
gibt es zwei Klassen von Exceptions. Allgemein wird immer der Programmzähler (PC) 
und das Statusregister (SR) auf dem Stack abgelegt. Bei einem Bus-oder Adreß-Error 
kommen noch drei Informationen hinzu, nämlich 

- der Code des gerade abgearbeiteten Befehls 

- die Adresse, auf die gerade zugegriffen wurde 

- das Super-Statuswort 

Im Super-Statuswort sind die Bits 0 bis 4 relevant und zwar 

Bit 0 ... 2: Funktions-Code 
Bit 3: 0 = Gruppe 2,1 = Gruppe 1 

Bit 4: 0 = Schreibzyklus wurde unterbrochen 

1 = Lesezyklus 

Nun wäre wieder einiges zu erklären. Die Funktions-Codes sind drei Ausgänge des 
68000, mit der die CPU der MMU anzeigt, was sie gerade tut. Im wesentlichen erfolgt 
hier die Unterscheidung in Zugriffe auf Anwender-Daten, Anwender-Programm, 
Supervisor-Daten und Supervisor-Programm. Dahinter steckt, daß die CPU natürlich 
weiß, ob sie im Supervisor- oder User-Modus ist, oder ob der PC auf ein Befehlswort 
oder ein Datum zeigt. 

Die Gruppen 0, 1, und 2 haben folgenden Sinn. Überlegen Sie einmal, was passiert, 
wenn der 68000 in einer Exception-Bearbeitung ist und gerade dann noch eine Excep¬ 
tion auftritt! 

Nun, für so etwas gibt es Prioritäten. Die höchste Priorität hat die Gruppe 0, dann fol¬ 
gen 1 und 2. Gruppiert wird so: 
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Gruppe 0 Reset 

Bus-Error 

Adreß-Error 

Gruppe 1 Trace 

Interrupt 
Illegaler Befehl 
Trap SAxxx, Trap $Fxxx 
Privilegverletzung 

Gruppe 2 Trap #n 
Trapv 
CHK 

Division durch 0 

Man kann die Liste auch in einem Stück sehen. Danach hat dann Reset die höchste und 
»Division durch Null« die niedrigste Priorität. Tritt nun zum Beispiel während einer 
Exception eine solche mit höherer Priorität auf, wird das laufende Programm unter¬ 
brochen, die Routine mit der höheren Priorität abgearbeitet und dann die unter¬ 
brochene Routine fortgesetzt. 

Exceptions beim Amiga 

Wie schon geschildert, wird nach einer Exception einiges an Informationen auf dem 
Stack gesichert und dann der PC mit der Adresse geladen, die im zugehörigen Vektor 
steht. Das wirkt dann wie ein Sprung zu dieser Adresse. Deshalb sollte in jedem Vektor 
schon etwas eingetragen sein, damit der 68000 nicht »in den Wald läuft«. Im Vektor 0 
steht, welchen Wert der Stackpointer nach Reset einnehmen soll, im Vektor 1 der dann 
erste Stand des PCs. Diese Vektoren sind obligatorisch und müssen im Einschalt- oder 
Reset-Augenblick vorhanden sein. Da beim Einschalten ein RAM natürlich leer ist, 
muß per Hardware dafür gesorgt werden, daß dann »etwas ROM« auf diesen Adressen 
liegt. Die übrigen Vektoren kann nun jeder Systemprogrammierer nach Gusto belegen. 
Alle wird er kaum benötigen. Die dann freien Vektoren sollten nun aber zumindest alle 
mit einer (ein und derselben) Adresse geladen werden. Die Routine auf dieser Adresse 
kann schlicht mit RTE beginnen (und enden) oder eine kleine Meldung der Art 
»Vektor Nummer X nicht belegt« ausgeben. Anstatt dieser Meldung zeigt nun der 
Amiga seine wenig geliebte Guru-Meditation. 
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11.1 Datenstrukturen, 

der Schlüssel zur Amiga-Programmierung 


Die erste Datenstruktur hatten wir im Kapitel 8, Bild 8.1 schon kennengelernt. Hier 
noch einmal mit Bild 11.1 die Window-Struktur: 


vindoudef 


de .u 

200,50 

links,oben 

de ,v 

500,100 

Breite, Hoehe 

de. b 

-1,-1 

Pens des Screen 

dc.l 

CLOSEWINDOW 

einziges IDCMP Flag 

dc.l 

W GadgetsiW Extras 

Window Flags 

de. 1 

0 

keine User-Gadgets 

c. 1 

0 

keine User-Checkmark 

dc.l 

U Title 

Titel des Window 

dc.l 

0 

kein eigener Screen 

de. 1 

0 

keine Super Bitmap 

de .v 

100,20 

Min. Groesse 

de. v 

640,200 

Max. 

de .w 

WBENCHSCREEN 

Use Workbench Screen 


Bild 11.1: Die NewWindow-Struktur 


Wenn man einmal von den Pflichtübungen zu Beginn eines Programms (Libraries öff¬ 
nen) und denen zum Schluß (Libraries schließen) absieht, dann besteht ein typisches 
Amiga-Programm eigentlich nur aus zwei sich immer wiederholenden Dingen, nämlich 

- Datenstruktur definieren 

- Funktion mit der Struktur als Parameter aufrufen 

Im Beispiel von Kapitel 8 wollten wir ein Intuition-Window öffnen. Das Öffnen selbst 
wurde mit einer Zeile erledigt, die Arbeit steckte in den Zeilen von Bild 11.1. Mit dem 
Schreiben von »Hello World!« haben wir es uns noch relativ einfach gemacht. Wir hät¬ 
ten auch einen anderen Font (Schrifttyp) nehmen können, doch dazu hätten wir noch 
schreiben müssen: 

MyFont dc.l font_name 

de.w TOPAZ_SIXTY 
dc.b FS_N0RMAL 
dc.b FPF ROMFONT 
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Das wäre noch eine Struktur. Wir hätten auch einen eigenen Screen definieren können, 
auch das erfordert eine Struktur (Thema kommt noch), wir möchten mit Pull-down- 
Menüs arbeiten (viele Strukturen) oder oder oder... 

Wie auch immer, was auch immer Sie programmieren wollen, an den Strukturen kom¬ 
men Sie nicht vorbei. Leider sind diese Strukturen zum Teil recht komplex, auf jeden 
Fall sind sie sehr zahlreich und ein kleiner Fehler (de anstatt dc.l) führt mindestens zu 
seltsamen Ergebnissen, meistens aber zum Absturz. 


11.2 Include-Files 

Die wichtigsten Strukturen finden Sie »assembler-gerecht« im Anhang, alle aufzu¬ 
führen würde das Buch sprengen. Sie finden aber alle Strukturen in den Include-Files, 
leider aber dort in einer sehr schwer verständlichen Weise dargestellt und - noch 
schlimmer - in einer Form, die für Assembler-Programme ziemlich unpraktisch ist (für 
die meisten C-Programme übrigens auch). 

Das Problem: Die Strukturen wurden ursprünglich in C geschrieben und dann in 
Assembler umgesetzt. Faul, wie gute Programmierer von Natur aus sind (bin ein sehr 
guter Programmierer), haben sie dafür natürlich Makros benutzt, und das sieht dann so 
aus, wie in Bild 9.2. 


STRUCTURE 

\1 

Offset 

macro 

set 

set 

0 

\2 


endm 


BYTE 

\1 

Offset 

macro 

equ 

set 

endm 

Offset 

Offset+1 

WORD 

\1 

Offset 

macro 

equ 

set 

endm 

Offset 

Offset+2 

LONG 

\1 

macro 

equ 

Offset 


;Krücke für manche Assembler 
;damit das Kind einen Namen 
jbekommen kann und bei 0 
;anfängt 


;der LC zählt in Bytes 


;Ein Wort hat 2 Byte 
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Offset 

set 

endm 

0ffset+4 

;Ein Langvort hat 4 Byte 

ULONG 

\1 

Offset 

macro 

equ 

set 

endm 

Offset 

0ffset+4 

;Unsigned Long auch 

APTR 

\1 

Offset 

macro 

equ 

set 

endm 

Offset 

0ffset+4 

;A Pointer ist auch lang 

LABEL 

\1 

macro 

equ 

endm 

Offset 



Bild 11.2: Einige Makros sinngemäß wie in »exec/types.i« 


11.3 Aufbau von Strukturen (?) mit Makros 

Wenn Sie sich die Namen in Bild 11.2 so anschauen und vielleicht schon einmal in der 
Amiga-Dokumentation geblättert haben, dann kommt Ihnen da einiges bestimmt 
bekannt vor. Es sind Datentypen, wie sie im Amiga-C verwendet werden. In Assembler 
müssen wir uns um gewisse Spitzfindigkeiten des C-Compilers aber nicht kümmern. 
Ein Byte ist für uns ein Byte. Ob das später mal eine vorzeichenbehaftete Zahl auf¬ 
nehmen soll oder nicht, ist uns egal. Wir brauchen deshalb nicht zwischen UBYTE 
(Unsigned Byte) und BYTE zu unterscheiden. Sinngemäßes gilt für ULONG und 
LONG. 

Im HiSoft-Assembler ist die Sache viel einfacher, weil der die Direktive RS kennt. Da 
schreibt man dann anstatt 

WORD xxx 


einfach 


xxx rs.v 1 

Doch schauen wir uns doch einmal so eine Makro-Entwicklung an. Da steht zum 
Beispiel: 
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STRUCTURE 

macro 


;Krücke für manche Assembler 

\1 

set 

0 

;daait das Kind einen Namen 

Offset 

set 

\2 

;bekommen kann und bei 0 




;anfängt 


endm 




Diesen Makro rufe ich auf mit 
STRUCTURE NevWindov,0 

Dann wird daraus 

NeuWindov set 0 

Offset set 0 

Zwei Konstanten sind entstanden, beide haben den Wert 0. Nun rufe ich wieder einen 
Makro auf, jetzt aber diesen: 

WORD macro 

\1 equ Offset 

Offset set 0ffset+2 ;Ein Wort hat 2 Byte 

endm 

Der Aufruf erfolgt mit 

WORD nv_LeftEdge 

Dann entsteht daraus 

nv_LeftEdge equ Offset 

Offset set 0ffset+2 

Folge der Übung: »nw_LeftEdge« hat jetzt den Wert 0 (den alten Wert von Offset), 
und Offset selbst steht nun auf 2. Das kann ich nun fortsetzen. Die komplette Übung 
zeigt Bild 11.3. 

Auf diese Art hat man eine Tabelle von Konstanten angelegt. Wenn Sie diese Tabelle 
einmal mit Bild 11.1 vergleichen, so fällt Ihnen sicherlich auf, daß hier symbolische 
Namen für die einzelnen Elemente eingesetzt wurden. Ferner dürfte klar sein, daß die 
Offsets den Typen entsprechen, also zum Beispiel für ein Langwort hier 4 Byte definiert 
werden. 

Solche Offset-Tabellen treffen Sie in den Include-Files sehr häufig an und besonders in 
»intuition.« auch sehr zahlreich. Sind das nun die Strukturen, über die wir hier reden? 
Die klare Antwort: Nein! 
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Direktive 


Wert von 

Label Offset 


STRUCTURE NevWindov,0 0 0 


WORD nv_LeftEdge 

0 

2 

WORD nv_TopEdge 

2 

4 

WORD nvJUdth 

4 

6 

WORD nu_Height 

6 

8 

BYTE nv_DetailPen 

8 

9 

BYTE nv_BlockPen 

9 

10 

ULONG nu_IDCMPFlags 

10 

14 

LONG nv_Flags 

14 

18 

APTR nv_FirstGadget 

18 

22 

APTR nv CheckMark 

22 

26 

APTR nv_Title 

26 

30 

APTR nv_Screen 

30 

34 

APTR nv_BitMap 

34 

38 

WORD nv MinWidth 

38 

40 

WORD nv_MinHeight 

40 

42 

WORD nv_MaxWidth 

42 

44 

WORD nv_MaxHeight 

44 

46 

WORD nw_Type 

46 

48 

LABEL nv SIZE 

48 

48 


Bild 11.3: Eine Offset-Tabelle 


Eine Offset-Tabelle ist keine Datenstruktur! 

Auch wenn in den Metacomco-Include-Files die Gebilde mit dem Wort STRUCTURE 
beginnen, so sind das keine Strukturen. Dieser Makro-Name STRUCTURE ist (ge¬ 
linde gesagt) unklug gewählt. In den Datenstrukturen kann ich etwas hineinschreiben, 
in ein Offset (praktisch in eine Konstante) wohl kaum. Was nutzt mir also' das Gebilde? 
Schauen wir uns dazu Bild 11.4 an. 


* vindov2 

* In diesen Files stecken diverse Deklarationen und Makros. 

* Schauen Sie mal rein! 


incdir ”:include/ : 
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include intuition/intuition.i 
include intuition/intultion_lib.i 
include exec/exec_lib.i 
include graphics/graphics_lib.i 


* Intuition Library oeffnen: 


lea 

intname.al 


moveq 

/0,d0 


CALLEXEC OpenLibrary 


tst. 1 

d0 


beq 

abbruch 


move.1 

d0,_IntuitionBase 

;Basis-Zeiger sichern 

Graphics Library oeffnen 


lea 

grafname.al 


moveq 

/0,d0 


CALLEXEC OpenLibrary 


tst.l 

d0 


beq 

closeint 


move.l 

d0,_GfxBase 

;Basis-Zeiger sichern 

Window oeffnen 


jsr 

InitWindow 

;initialisiere NewWindow 

lea 

NewWindow,a0 

;zeige auf Window-Struktur 

CALLINT OpenWindow 

joeffne Window 

tst. 1 

d0 

;ging was schief? 

beq 

closegraf 

;wenn ja 

move.1 

d0.windowptr 

;Window-Zeiger sichern 

Text im Fenster zeichnen 


moveq 

/I00,d0 

X-Position 

moveq 

/50,dl 

Y 

move.1 

windowptr,al 

Via Window-Zeiger 

move.1 

wd RPort(a1),a1 

Rast-Port-Adresse holen 

CALLGRAF Move 

Funktion Move to X,Y 

move. 1 

windowptr,al jbrauche wieder Rast-Port 

move.1 

wd RPort(al),al 


lea 

msg,a0 ;Adresse Text 

moveq 

/msglen,d0 

seine Laenge 

CALLGRAF Text ;und ausgeben 

Auf Event warten (kann hier nur WINDOWCLOSE sein) 


move.l windowptr,a0 ;zeige auf Window-Struktur 

move.l wd_UserPort(a0),a0 ;nun auf Message-Port 
move.b MP_SIGBIT(a0),d1 ;Anzahl Signal Bits -> dl 
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moveq.1 /I,d0 
lsl.l dl,d0 
CALLEXEC Wait 

* Fenster schliessen 

# - 

move.l windowptr,a0 
CALLINT CloseWindou 


in Maske 

konvertieren 
Schlaf gut! 


;uir sind wieder wach 
•.Fenster zu 


* Libraries schliessen 


closegraf 

move.l _GfxBase,a1 
CALLEXEC CloseLibrary 

closeint 

move.l _IntuitionBase,a1 
CALLEXEC CloseLibrary 

abbruch 

move.l /0,d0 ;oder normales Ende 

rts 


W_Gadgets equ WINDOWSIZING!WINDOWDRAG!WINDOWDEPTH!WINDOWCLOSE 

W_Extras equ SMART_REFRESH!ACTIVATE 


W Title dc.b 


’Fenster-Titel 1 ,0 


******»************«****»**********»**********!(*****«»***»***** 
NewWindow ds.b nw_SIZE ;Puffer f. Windowstruktur * 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


InitWindow 

lea 

move.w 
move.w 
move.w 
move.w 
move.b 
move.b 
move. 1 
move.l 
move. 1 
clr. 1 
clr. 1 
clr. 1 
clr. 1 
move.w 
move.w 
move.w 
move.w 
move.w 


NewWindow,a0 ;Fuelle Struktur 

/200,nw_LeftEdge(a0) 

/50,nw_TopEdge(a0) 

/300,nw_Width(a0) 

/100,nw_Height(a0) 

/0,nw_DetailPen(a0) 

/I,nw_BlockPen(a0) 

/W_Title,nw_Title(a0) 

/W_Gadgets!W_Extras,nw_Flags(a0) 

/CLOSEWINDOW,nw_IDCMPFlags(a0) 

nw_FirstGadget(a0) 

nw_CheckMark(a0) 

nw_Screen(a0) 

nw_BitMap(a0) 

/100,nw_MinWidth(a0) 

/20,nw_MinHeight(a0) 

/640,nw_MaxWidth(a0) 

/200,nw_MaxHeight(a0) 

/WBENCHSCREEN,nw_Type(a0) 
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rts 


intname 

INTNAME 

;Name Intuition Lib (via Makro) 

grafname 

GRAFNAME 

;Name Graphics Lib 


msg 

de. b 

'Hello, 

World! ’ 

msglen 

equ 

*-msg 


_IntuitionBase 

ds. 1 

1 

;Speicher fuer Zeiger 

_GfxBase 

ds.l 

1 


vindovptr 

ds.l 

1 



Bild 11.4: Die Nutzung der Offset-Tabellen 


11.4 Anwendung von Offset-Tabellen 

Das Listing entspricht im wesentlichen dem von Bild 8.1, die Wirkung ist sogar absolut 
gleich. Im Absatz »Window öffnen« ist diese Zeile hinzugekommen: 

jsr InitWindov ;initialisiere NevWindov 

Hier steckt nun das Neue. Wir brauchen zum Öffnen des Windows eine Struktur mit 
Werten, wie denen von Bild 11.1. Diese Struktur muß im RAM stehen und dafür brau¬ 
chen wir einen Speicherbereich. Dieser Puffer wird mit 

NevWindov ds.b nv_SIZE jPuffer f. Windovstruktur 

geschaffen. Damit hätten wir einen leeren Puffer mit einer Größe von nw_SIZE 
(48 Byte). Sie wissen jetzt, warum in Bild 11.2 die Größe bestimmt wurde. Nun müssen 
wir diesen Puffer mit Daten füllen. Da uns nur Offsets zur Verfügung stehen, stellen 
wir mit 


lea NevWindov,a0 

das Register aO auf den Beginn des Puffers und nutzen die schon oft genutzte Adressie¬ 
rungsart »ARI mit Offset« für Befehle wie 

move.v /200,nv_LeftEdge(a0) 
move.v /50,nv_TopEdge(a0) 
move.v /300,nv_Width(a0) 
move.v /100,nv_Height(a0) 
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Damit hätten wir die linke, obere Ecke sowie Breite und Höhe des Fensters bestimmt. 
Gefällt Ihnen das? Mir nicht! Den gleichen Zweck hätten wie nämlich auch mit einem 
schlichten 

dc.v 200,50,300,100 

erreicht. Weitere dc-Anweisungen hätten den Puffer genauso initialisiert, wie es die 
weiteren Move-Befehle tun. Zum Schluß stehen in beiden Fällen die richtigen 48 Byte 
im Puffer. Den brauchen wir wohl, doch die Move-Befehle sind jetzt zusätzlich vorhan¬ 
den. Diese Befehle verbrauchen natürlich auch Speicher, hier 18 x 6 = 108 Byte, und 
(viel schlimmer) sie kosten Laufzeit. 

Das kommt also dabei heraus, wenn man C-Strukturen so einfach in Assembler über¬ 
setzt. Nun können natürlich kluge Leute argumentieren, daß dieses Verfahren andere 
Vorteile hat. Sie wissen ja schon, daß die NewWindow-Struktur nach dem Öffnen des 
Fensters nicht mehr gebraucht wird, weil Intuition daraus eine eigene und größere 
Struktur aufbaut. Wir können also die NewWindow-Struktur mit anderen Daten füllen 
und sie für ein zweites Fenster nochmals verwenden. Aber dafür braucht man Variable, 
und die hätte man nur bei dieser Konstruktion. Stimmt das? In C ja, in Assembler 
nicht! Was hindert uns, so etwas wie das in Bild 11.5 zu schreiben? 


W_Title 

_1 dc.b 

'Fenster-Titel 1 ’,0 

W_Title~ 

_2 dc.b 

'Fenster-Titel 2’,0 

vindovdef 



pos 

dc.v 

200,50 

links, oben 


dc.v 

300,100 

Breite, Hoehe 


de. b 

-1,-1 

Pens des Screen 


de. 1 

CLOSEWINDOW 

einziges IDCMP Flag 


de. 1 

W_Gadgets!W_Extras 

Uindov Flags 


de. 1 

0 

keine User-Gadgets 


de. 1 

0 

keine User-Checkmark 

titel 

dc.l 

U Title 1 

Titel des Uindov 


de. 1 

0 

kein eigener Screen 


dc.l 

0 

keine Super Bitmap 


dc.v 

100,20 

Min. Groesse 


dc.v 

640,200 

Max. 


dc.v 

WBENCHSCREEN 

Use Workbench Screen 


Bild 11.5: Mit Labels werden dc-Stmkturen flexibel 
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Nun, nichts hindert uns. »de« heißt zwar »definiere Konstante«, aber das dürfen Sie 
nicht zu wörtlich nehmen. Sie können die Werte nachträglich noch ändern. Wir können 
also wie üblich ein Fenster öffnen. Danach brauchen wir ein zweites, das soll jetzt aber 
woanders liegen und einen anderen Titel haben. Also schreiben wir: 

move /300,pos 
move /100,pos+2 
move.l /W_Title_2,titel 


Wollen Sie noch mehr ändern, so sehen Sie einfach noch ein paar mehr Labels vor. 
Sind Sie dazu zu faul (wie ich in diesem Beispiel), hilft auch Abzählen. Wenn der erste 
Wert die Label »pos« hat und »pos« zwei Byte belegt, dann beginnt der nächste Wert 
eben bei »pos+ 2«. Nun können wir wieder OpenWindow aufrufen, und das geht so: 


lea windovdef,a0 

CALLINT OpenWindow 
tst.l d0 
beq close_1 

move.l d0,uindowptr_2 


;zeige auf Window-Struktur 
;oeffne Window 
;ging was schief? 

;wenn ja 

;Window-Zeiger sichern 


Achten Sie auf den berühmten kleinen Unterschied! Wir haben ein neues Window, und 
den Zeiger darauf müssen wir natürlich in einer eigenen Variablen abspeichern, hier 
»windowptr_2«. 

Noch ein Unterschied: Ging beim Öffnen von Window 2 etwas schief, dürfen Sie nicht 
zu »closeint« springen, sondern zur Zeile, ab der Window 1 geschlossen wird. Darauf 
müßte dann »closeint« folgen. 

Wenn Sie nun mit mehreren Windows experimentieren (diese Übung empfehle ich 
Ihnen), können Sie natürlich ein Fenster nach dem anderen öffnen und dann im näch¬ 
sten Block »Waits« mit den zugehörigen Window-Pointern aufrufen. In diesem Fall 
können Sie die Fenster auch nur in dieser Reihenfolge schließen. Praktischer macht 
sich da die GetMsg/ReplyMsg-Lösung aus dem Kapitel 9. Letzter Tip: Sie sollten in 
extra Variablen notieren, ob ein Fenster auf oder zu ist. Sie dürfen nämlich ein Fenster, 
das zu ist, nicht mehr ansprechen. 

Zum Schluß aber doch ein positiver Hinweis zu den Offset-Tabellen. Wie schon gesagt, 
baut Intuition aus unserer NewWindow-Stuktur eine größere Struktur im RAM auf. 
Um auf Elemente dieser Struktur zugreifen zu können, müssen wir natürlich die Off¬ 
sets kennen. Wir haben sie schon benutzt, hier ein Beispiel: 

move.l wlndowptr,a0 ;zeige auf Window-Struktur 

move.l wd_UserPort(a0),a0 ;nun auf Message-Port 
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Sie erinnern sich? In dieser Struktur (und anderen dieser Art) steckt noch mehr. Des¬ 
halb wollen wir uns nach diesem Schnellkurs im nächsten Kapitel mit solchen Dingen 
etwas genauer befassen. 


11.5 BPTR und BSTR 

In den Makros der Include-Files oder in anderen Quellen werden Sie des öfteren auf 
die Begriffe BPTR und BSTR stoßen. Dabei handelt es sich um einen BCPL-Pointer 
bzw. um einen BCPL-String. Aha! Nun, BCPL ist eine C-ähnliche Sprache, in der die 
Amiga-Software zum Teil noch entwickelt wurde. Da BPCL für Rechner konzipiert 
wurde, die mit Langwort-Adressierung arbeiten, gibt es ein Problem, denn bekanntlich 
ist der 68000 eine Byte-Maschine, sprich, er kann jedes Byte adressieren, BPCL aber 
nur jedes vierte. 

Deshalb muß ein BPTR immer auf eine Langwortgrenze zeigen. Wenn diese Pointer in 
Datenstrukturen auftauchen, muß diese Struktur auf »lang« justiert werden, was Sie mit 
»cnop 0,4« (SEKA: align 4) erreichen können. Gleiches gilt für BSTR. BSTR zeigt auf 
das erste Byte eines Strings. Dieses Byte hält die Stringlänge, die folgenden Bytes sind 
der Text an sich. 

Falls Sie die Pointer selbst anwenden wollen, müssen Sie sie umrechnen, sprich einfach 
den BTR mit 4 multiplizieren. In Assembler geschieht dies am schnellsten mittels 
Linksschieben um 2. 

Ein APTR ist übrigens ein ganz gewöhnlicher Pointer (eine Adresse), die Sie als Long 
so nehmen, wie sie ist. 
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12.1 Screens 

Der Amiga vermag beliebig viele Screens zu öffnen. Na, sagen wir fast beliebig viele, 
ein Screen kostet nämlich auch Speicher. 

Ein Screen ist ein sogenannter virtueller Bildschirm, also ein scheinbarer, der sich aber 
prinzipiell wie ein echter Schirm verhält. Er kann also farbig oder monochrom sein, 
verschiedene Größen haben, verschiedene Auflösungen und andere unterschiedliche 
Eigenschaften. Mehrere dieser Screens können nun gleichzeitig auf dem Hardware- 
Bildschirm dargestellt werden. 

Im Gegensatz zu Windows können diese Screens sich aber nicht überlappen, dürfen nur 
untereinander (nicht nebeneinander) Hegen und können mit der Maus auch nur vertikal 
verschoben werden. 


Ein Screen kann nun wieder mehrere Windows enthalten. Er prägt auch die Eigen¬ 
schaften des Windows. 


Screen öffnen 

Generell öffnet sich ein Screen so wie ein Window. Wir brauchen eine Struktur (hier 
NewScreen), einen Zeiger auf diese Struktur und eine Funktion, die natürlich 
_LVOOpenScreen heißt. Als Ergebnis bekommen wir einen Zeiger auf eine Struktur 
zurück, die im Anhang abgedruckt und erklärt ist. Wichtig ist, daß wir uns diese 
Adresse merken und - ganz wichtig - diese Adresse auch in das Window (alle Win¬ 
dows) eintragen. Die Kernroutine in puncto Screen lautet also: 


lea NevScreen(pc),a0 

CALLINT OpenScreen 
tst.l d0 
beq closegfx 

raove.l d0, Screen 


;Zeige auf Struktur 
;0pen Screen 
;ging was schief? 
;venn ja 

;in Window eintragen! 


Den weiteren Anfang des Programms in Bild 12.1 kennen Sie schon. Beachten Sie 
jedoch bitte zwei Änderungen in der Window-Struktur: Zum einen ist das Label Screen 
hinzugekommen, auf diese Stelle wird die Screen-Struktur-Adresse geschrieben, zum 
zweiten ist der Eintrag WBENCHSCREEN in CUSTOMSCREEN geändert worden. 
Öffnen Sie ein zweites Fenster, das dann zum Beispiel das Label Screen_l hat, müssen 
Sie vorher mit 


move.l Screen,Screen_1 
auch dort die Screen-Adresse eintragen. 
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12.2 Fonts 

Um nun zu zeigen (und um Sie auf den nächsten Absatz vorzubereiten), habe ich bei 
der Gelegenheit auch noch einen anderen Font eingesetzt. Vom Screen zeigt ein Zeiger 
auf »Font«. In dieser Struktur zeigt wieder ein Zeiger auf den Font-Namen. Probieren 
Sie ruhig andere Fonts und Größen (siehe Anhang) aus. Wichtig ist dieses Prinzip: 
»Zeiger zeigt auf Struktur, deren Zeiger zeigt auf andere Struktur«. 


opt 1- 

*screen.s 

incdir ":include/” 

include exec/exec_lib.i 

include intuition/intuition.1 

include intuition/intuition_lib.i 
include graphics/graphics_lib.1 
include graphics/text.i 

moveq /0,d0 jlntuition oeffnen 

lea int_name(pc) P a1 

CALLEXEC OpenLibrary 

tst.l d0 

beq abbruch 

move.l d0,_IntuitionBase 

moveq /0,d0 ;Graphics oeffnen 

lea graf_name(pc),a1 

CALLEXEC OpenLibrary 

tst.l d0 

beq closeint 

move.l d0,_GfxBase 

lea NevScreen(pc) p a0 

CALLINT OpenScreen ;0pen Screen 

tst.l d0 

beq closegfx 

move.l d0,Screen ;in Window eintragen! 

lea NevWindow(pc) p a0 ;0pen Window 

CALLINT OpenWindow 

tst.l d0 

beq closescr 

move.l d0 p Window 

move.l d0,al ;Text ausgeben 

move.l wd_RPort(al),a1 ;Move 

moveq /100,d0 
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moveq /50,d1 

CALLGRAF Move 

move.l Windou(pc),a0 ;print 

move.l wd_RPort(a0),a1 

lea msg(pc),a0 

moveq /msglen,d0 

ALLGRAF Text 

move.l Windou(pc),a0 ;varte Event 

move.l wd_UserPort(a0),a0 

move.b MP_SIGBIT(a0),dl 

moveq /0,d0 

bset dl,d0 

CALLEXEC Walt 

move.l Windou(pc),a0 ;close all 

CALLINT CloseWindou 


closescr 

move.l Screen(pc),a0 
CALLINT CloseScreen 


closegfx 

move.l _GfxBase(pc),a1 
CALLEXEC CloseLibrary 

closeint 

move.l _IntultionBase(pc),a1 
CALLEXEC CloseLibrary 

abbruch 

rts 


NevScreen 


Font 


dc.u 

0,0 

left, top 

de .v 

720,200 

uidth, height 

dc.u 

2 

depth 

dc.b 

0,1 

pens 

dc.v 

0 

vieumodes 

dc.w 

CUSTOMSCREEN 

type 

de. 1 

Font 

font 

dc.l 

screen_title 

title 

dc.l 

0 

gadgets 

de. 1 

0 

bitmap 

dc.l 

font_name 


dc.u 

TOPAZ_SIXTY 


dc.b 

FS_N0RMAL 


dc.b 

FPF ROMFONT 



W_Gadgets equ WINDOWDRAG!WINDOWDEPTH!WINDOWCLOSE 
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W_Extras equ 

SMART JiEFRESH!ACTIVATE 

W_Title dc.b 

'Fenster-Titel’,0 


cnop 

0,2 


NeuWindov 

de .v 

20,20 

;links, oben 

de .v 

300,100 

.•Breite, Hoehe 

de. b 

0,1 

;Pens des Screen 

de. 1 

CLOSEWINDOW 


de. 1 

W Gadgets!W_Extras 

;Window Flags 

de. 1 

0 

;Kein User-Gadget 

de. 1 

0 

;keine User-Checkmark 

dc.l 

UJTitle 

jTitel des Window 

JScreen ds.l 

1 

;eigener Screen 

dc.l 

0 

;keine Super Bitmap 

de .v 

100,20,640,200 

;Limits von Window-Groesse 

de .v 

CUSTOMSCREEN 

•,Use our screen 

_IntuitionBase 

dc.l 0 


_GfxBase 

dc.l 0 


Window 

dc.l 0 



int_name 

INTNAME 


graf_name 

GRAFNAME 


msg 

de. b 

'Hallo Amiga’ 

msglen 

equ 

*-msg 


cnop 

0,2 

screen_title 

dc.b 

'Unser Screen’,0 

font_name 

dc.b 

’topaz.font’,0 


Bild 12.1: Eigener Screen und Text 


12.3 Events 

Mit Bild 12.2 komme ich zum Thema Diverses und damit zuerst zum Thema Events. 


* event.s 

* In diesen Files stecken diverse Deklarationen und Makros. 

* Schauen Sie mal rein! 


incdir "linclude/ 1 
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include Intuition/Intuition.i 
include intuition/intuition_lib.i 
Include exec/exec_lib.i 
include graphics/graphics_lib.i 


* Text im Fenster zeichnen 

x- 

PRINT macro 

moveq \1,d0 
moveq \2,d1 
move.l uindowptr.al 
move.l ud_RPort(a1),a1 
CALLGRAF Move 
move.l uindouptr.al 
move.l ud_RPort(a1),a1 
lea \3,a0 

moveq \4,d0 s 

CALLGRAF Text 

endm 

_main 

* Intuition Library oeffnen: 

x- 

lea intname.al 

moveq /0,d0 

CALLEXEC OpenLibrary 

tst.l d0 

beq abbruch 

move.l d0,_IntuitionBase 

* Graphics Library oeffnen 

X- 

lea grafname.al 

moveq /0, d0 
CALLEXEC OpenLibrary 
tst.l d0 
beq closeint 

move.l d0,_GfxBase 

* Window oeffnen 

x- 

lea uindoudef,a0 
CALLINT OpenWindov 
tst.l d0 
beq closegraf 

move.l d0,uindouptr 

x Menu installieren 

X- 

move.l d0,a0 
lea Menu0,a1 


;X-Position 

;Y 

;Via Window-Zeiger 
; Rast-Port-Adresse holen 
[Funktion Move to X,Y 
[brauche wieder Rast-Port 

[Adresse Text 
ine Laenge 
;und ausgeben 


[Basis-Zeiger sichern 


[Basis-Zeiger sichern 


[zeige auf Windou-Struktur 
;oeffne Window 
[ging was schief? 

;wenn ja 

[Window-Zeiger sichern 


;"Window 
; "Menu 
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CALLINT SetMenuStrip ;do it 


* Auf Event warten, dann ausverten 


event 



move.1 

windowptr,a0 

; zeige auf Window-Struktur 

move.1 

vd_UserPort(a0), a0 

;nun auf Message-Port 

move.1 

a0 ,a5 

;rette Port-Adresse 

move.b 

MP SIGBIT(a0),dl 

;Signal Bit holen 

moveq 

/0,d0 

;Nummer in 

bset 

dl ,d0 

;Maske wandeln 

CALLEXEC Walt 

;Schlaf gut! 

move.1 

a5,a0 

;hole Port-Adresse 

CALLEXEC GetMsg 

;hole Message 

move.1 

d0,a1 

;muss nach al 

move.1 

im_Class(a1),d4 

Msg-Typ 

move.v 

im_Code(a1),d5 

Untergruppe 

move.1 

im_IAddress(a1),a4 

;Adr. f. Gadgets 

CALLEXEC ReplyMsg 

;quittiere Msg in al 

cmpi.1 

/CLOSEWINDOW,d4 

jWindow Closed? 

beq 

closewindow 

•wenn so 

cmpi. 1 

/MENUPICK,d4 

Menu angewaehlt? 

beq 

do_menu 

wenn so 

cmpi.1 

/GADGETUP,d4 

und so fuer jedes 

beq 

do gadget 

jedes Bit 

bra 

event 


do menu 



cmpi 

/MENUNULL,d5 

Item selektiert? 

beq 

event 

wenn nicht 

move 

d5,d2 

Code 

lea 

buffer+8,a0 

in hex anzeigen 

bsr 

hex 

Routine aufrufen 

PRINT 

/50,/50,buffer,/12 


bra 

event 


do_gadget 



sub. 1 

a0,a0 


CALLINT 

DisplayBeep ;Damit was passiert 

bra 

event 


closewindow 



move. 1 

windowptr,a0 

wir sind wieder wach 

CALLINT 

CloseWindow ;Fenster zu 
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* Libraries schliessen 


closegraf 



move. 1 

GfxBase,a1 


CALLEXEG CloseLibrary 


closeint 



move. 1 

IntuitionBase 

,a1 

CALLEXEC CloseLibrary 


abbruch 



moveq 

rts 

/0,d0 

;oder normales Ende 

* Konvertiere 

d2.w in ASCII-String ab (a0) 

hex 



moveq 

/3,d1 

;fuer 4 Nibble 

next rol 

/4,d2 

;hole 1 Nibble 

move 

d2,d3 

;nach d3 retten 

and.b 

/$0f,d3 

;maskiere es 

add.b 

/48,d3 

;in ASCII wandeln 

cmp.b 

/58,d3 

;ist es >9 ? 

bcs 

out 

;wenn nicht 

addq.b 

/7,d3 

;sonst muss es A-F sein 

out move.b 

d3,(a0)+ 

;1 Zeichen abspeichern 

dbra 

dl,next 

;next nibble 

rts 



buffer dc.b 

'Code = xxxx 

hex’ 

cnop 

0,2 


W Gadgets equ 

WINDOWSIZING!WINDOWDRAG!WINDOWDEPTH!WINDOWCLOSE 

WJixtras equ 

SMART_REFRESH!ACTIVATE 

W_Title dc.b 

'Fenster-Titel',0 

windowdef 



dc.w 

200,50 

;links, oben 

dc.w 

300,100 

•.Breite, Hoehe 

dc.b 

-1,-1 

;Pens des Screen 

de. 1 

CLOSEWINDOW!HENUPI CK!GADGETÜP!GADGETDOWN 

de. 1 

W_Gadgets!W_Extras ;Window Flags 

dc.l 

Gadget0 

;erstes User-Gadget 

de. 1 

0 

[keine User-Checkmark 

dc.l 

W Title 

[Titel des Window 

dc.l 

0 

[kein eigener Screen 

dc.l 

0 

[keine Super Bitmap 

dc.w 

100,20 

;Min. Groesse 

dc.w 

640,200 

;Max. 

dc.w 

WBENCHSCREEN 

jUse Workbench Screen 
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; Menue 


Menu0 


Item0 


Iteml 


IName0 


INamel 


MName0 


Strukturen 


de. 1 0 

dc.v 50,0 

dc.v 60,0 

dc.v MENUENABLED 
dc.l MName0 

dc.l Item0 

dc.v 0,0,0,0 


keines mehr 

x,y 

breit, hoch 

Flags 

“Titel 

‘Item-Liste 

System-Use 


dc.l 
de .w 
dc.v 
dc.v 
dc.l 
dc.l 
dc.l 
dc.b 
de. b 
de. 1 
dc.v 


Iteml 

0,0 

100,12 

ITEMENABLED!ITEMTEXT 
0 

IName0 

0 


“next Item 

x.y 

breit, hoch 
HIGHCOMPiCOMMSEQ 
keine Excludes 
“Text 

Select Fill 


’ N ’ 
0 
0 
0 


Cmd-Key 

Dummy 

Kein Sub-Item 

next Select 


dc.l 
dc.v 
dc.v 
dc.v 
dc.l 
dc.l 
dc.l 
dc.b 
de. b 
dc.l 
dc.v 


0 

0,12 

100,12 

ITEMENABLED!ITEMTEXT 
0 


“next Item 

x,y 

breit, hoch 
HIGHCOMPiCOMMSEQ 
keine Excludes 


INamel 

0 


‘Text 

Select Fill 


’ E * 


0 

0 


Cmd-Key 

Dummy 

Kein Sub-Item 

next Select 


dc.b 

0,2 

Pens 

dc.b 

RP_JAM1,0 

Schreibmodus 

de .v 

2,2 

x,y 

dc.l 

0 

System-Font 

dc.l 

stri0 

“Text 

de. 1 

0 

kein Text mehr 

dc.b 

0,2 

Pens 

dc.b 

RP_JAM1 ,0 

Schreibmodus 

de .v 

2,2 

x,y 

dc.l 

0 

System-Font 

de. 1 

stril 

“Text 

dc.l 

0 

kein Text mehr 

dc.b 

'Menu 0' ,0 



;Flags 


;Flags 
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cnop 

0,2 

stri0 

de .b 

■ Item 0’,0 


cnop 

0,2 

stri 1 

de .b 

’Item 1’,0 


cnop 

0,2 


* Gadget-Strukturen 

* - 


Gadget0 



dc.l 

Gadgetl 

;noch eins 

de .v 

20,20 

;x,y 

de .v 

40,20 

;breit,hoch 

de .v 

GADGHCOMP 

;Flags 

de .v 

RELVERIFY 

; Aktivierung 

de .v 

BOOLGADGET 

; Typ 

dc.l 

Border0 

;"Border-Strukt 

dc.l 

0 


de. 1 

G0text 

;"Text-Strukt. 

dc.l 

0,0 


de .v 

0 

; ID 

dc.l 

0 


Border0 



dc.v 

0,0 

;x,y 

dc.b 

15,0 

;Pens 

dc.b 

RP_JAM1 


dc.b 

5 

; Paare 

de. 1 

paar0 

j "Liste 

dc.l 

0 

;kein Border mel 

paar0 



de .v 

0,0 

;Koord.-Liste 

dc.v 

0,19 


de .v 

39,19 


de .v 

39,0 


dc.v 

0,0 


G0text 



dc.b 

7,0 

;Pens 

de. b 

RP_JAM1 


dc.v 

10,7 

;x,y 

dc.l 

0 

;Sys-Font 

dc.l 

strg0 


de. 1 

0 


strg0 dc.b 

’ G0 ’ , 0 


cnop 

0,2 


Gadgetl 



dc.l 

0 


dc.v 

80,20 

;x,y 

dc.v 

40,20 

;breit,hoch 

de .v 

GADGHCOMP 

;Flags 

de .v 

RELVERIFY 

;Aktivierung 

de ,v 

BOOLGADGET 

.■Typ 
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de. 1 

Borderl 

;"Border-Strukt. 

de. 1 

0 


de. 1 

Gltext 

;"Text-Strukt. 

dc.l 

0,0 


de .v 

0 

: ID 

dc.l 

0 


Borderl 

de .v 

0,0 

;x,y 

de. b 

15,0 

;Pens 

de .b 

RP JAM1 


de. b 

5 

;Paare 

dc.l 

paarl 

;"Liste 

dc.l 

0 

;kein Border mehr 

paarl 

de .v 

0,0 

;Koord.-Liste 

de .u 

0,19 


de .u 

39,19 


de .v 

39,0 


de .v 

0,0 


Gltext 

de. b 

7,0 

;Pens 

de. b 

RP JAM1 


de .v 

10,7 

;x,y 

dc.l 

0 

;Sys-Font 

de. 1 

strgl 


dc.l 

0 


strgl dc.b 

■Gl’,0 


enop 

0,2 


intname 

INTNAME 

[Name Intuition Lib (via Hakro) 

grafname 

GRAFNAHE 

[Name Graphics Lib 

_IntuitionBase 

ds.l 1 

[Speicher fuer Zeiger 

GfxBase 

ds.l 1 


windowptr 

ds.l 1 



Bild 12.2: Das Event-Handling in Intuition 

Ein Event ist ein Ereignis, und aus Sicht des Computers sind die User-Eingaben, die da 
alle Ewigkeit einmal auftreten, tatsächlich ein Ereignis. Auf jeden Fall sieht es so aus: 
Sie kennen schon die Sequenz 


move. 1 

windowptr,a0 

jzeige auf Window-Struktur 

move. 1 

wd UserPort(a0),a0 

;nun auf Hessage-Port 

move. 1 

a0,a5 

;rette Port-Adresse 

move. b 

HP_SIGBIT(a0),d1 

[Signal Bit holen 

moveq 

/0,d0 

[Nummer in 

bset 

dl ,d0 

[Maske wandeln 

CALLEXEC 

Walt 

[Schlaf gut! 
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An dieser Stelle geht unser Task schlafen. Geweckt wird er erst, wenn ein Event auf- 
tritt. Was dann sein kann, haben wir in der Fensterdefmition bestimmt. Bisher haben 
wir immer unterstellen können, daß das Event CLOSEWINDOW hieß. Doch nun habe 
ich folgende Bits per Oder-Verknüpfung (! in Assembler) als Events zugelassen: 

de. 1 CLOSEWINDOU! MENUPI CK! GADGETUP! GADGETDOWN 

Da muß ich dann wohl oder übel prüfen, welches Event von diesen denn nun einge¬ 
treten ist. Dazu muß ich die Message (Nachricht) lesen, und das geht so: 

move.l a5,a0 ;hole Port-Adresse 

CALLEXEC GetMsg jhole Message 

move.l d0,a1 ;muss nach al 

Al zeigt nun auf den Message-Port, das ist auch (wieder) eine Struktur. Wie üblich 
können wir nun wieder über Offsets auf die Elemente dieser Struktur zugreifen, wobei 
folgende interessieren: 

move.l im_Class(a1),d4 ;Msg-Typ 

move.v im_Code(a1),d5 [Untergruppe 

move.l im_IAddress(a1),a4 ;Adr. f. Gadgets 

Der Typ entspricht genau unseren Flag-Bits des Windows. Man kann also zum Beispiel 
schreiben: 

cmpi.l /CLOSEWINDOW,d4 [Windov Closed? 

beq closeuindov ;uenn so 

Der Code gibt eine Untergruppe an. Wurde zum Beispiel der Typ MENUPICK 
erkannt, kann ich in Code nachsehen, welches Menü und welches Untermenü das war. 

Die Adresse, die ich hier in a4 gerettet habe, braucht man im Fall von Gadgets. Diese 
Adresse zeigt auf den Beginn der Gadget-Struktur (deren Gadget angeklickt wurde). 
Wieder über ein Offset kann ich da die ID (die Nummer des Gadgets) so holen: 

move gg_GadgetID(a4),d0 

Was auch immer: Bevor wir Intuition oder eine andere System-Routine aufrufen, müs¬ 
sen wir unbedingt die Nachricht quittieren. Hier geschieht das mit 

CALLEXEC ReplyMsg [quittiere Msg in al 

Lassen Sie bis zum »Reply« auch sonst nicht zuviel Zeit vergehen. Hier liegen vier 
Befehle dazwischen, das geht noch. 
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12.4 Menüs 

Bisher hatten wir zwar mit MENUPICK zugelassen, im Fall von Menü-Auswahlen 
geweckt zu werden, doch vorher ist einiges zu tun. Die Menüs werden installiert mit 

move.l d0,a0 ;"Mlndov 

lea Menu0,a1 ;"Menu 

CALLINT SetMenuStrip ;do it 

Beachten Sie, daß ein Menü immer an ein Fenster gebunden ist (obwohl es immer in 
der Schirmzeile erscheint). Daher der Zeiger auf die Fensterstruktur als erster Para¬ 
meter. Dann müssen wir einen Zeiger auf die Menü-Struktur übergeben und können 
schließlich den »Menü-Streifen« installieren. 

Die Arbeit hegt in der Strukturerstellung. Das ist viel Tipperei aber sonst ganz einfach, 
zumal man eigentlich nur ein Menü schreibt und den Rest dupliziert und nur an weni¬ 
gen Stellen ändert. Ich meine zwar, Sie haben das Prinzip schon erkannt, aber für die 
anderen Leser: 

Es gibt für jeden Menü-Titel eine Struktur, wobei immer die eine auf die nächste zeigt, 
bis der Zeiger der letzten null ist. In jeder Titelstruktur gibt es einen Zeiger auf die 
Item-Liste (Untertitel), die dem gleichen Prinzip folgt. In jeder Item-Struktur gibt es 
einen Zeiger auf eine Textstruktur und in dieser wieder einen Zeiger auf den Text an 
sich. Genug gezeigert? Ich meine, machen wir eine Pause, wir zeigern gleich weiter. 

In der Routine do_menu zeige ich den Code einfach als Hex-Wort an. Die zwei Menüs 
reichen nicht zur Auflösung des Rätsels, daher hier die Lösung. Im 16-Bit-Wort von 
Code stecken drei Zahlen, nämlich die Nummern für den Titel, das Item und das Sub- 
Item. Für letztere werden in den Items Zeiger auf Strukturen eingetragen, die sich wie 
Items verhalten. Der Code löst sich auf in 

Bit 0-4: Titel 
Bit 5-10: Item 
Bit 11-15: Sub-Item 

Die Nummern zählen immer ab 0. Typisch wird man das Register kopieren, für den 
Titel das Wort mit #%11111 »unden« und hat so die Titelnummer. In der Titelroutine 
nimmt man wieder den Original-Code, schiebt den um 5 Bit nach rechts, und »undet« 
mit %#111111 und hat das Item. Waren bei bestimmten Items noch Sub-Items vorge¬ 
sehen, geht es entsprechend weiter (um 11 schieben und mit #%11111 unden). Beach¬ 
ten Sie dazu, daß man mittels einer Konstanten nur maximal 8 schieben kann, für 11 
wären dann zwei Befehle (mit 8 und mit 3) erforderlich. Alternativ lädt man ein Regi¬ 
ster mit 11 und schiebt damit. 
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12.5 Gadgets 

Wie man eine Gadget-ID erhält, hatte ich schon geschildert, zwei Voraussetzungen 
fehlen allerdings noch. Im Window muß »User-Gadget« auf die erste Gadget-Struktur 
zeigen, und diese muß es natürlich geben. 

Hier geht nun wieder die »Zeigerei« los. Ein Gadget zeigt auf das nächste. In einem 
Gadget gibt es einen Zeiger auf eine Border-Struktur (Vieleck, sonst Polygon 
geheißen). Dort gibt es wieder einen Zeiger auf eine Liste mit den Koordinatenpaaren 
für jede Ecke des Polygons. Wir bescheiden uns hier mit einem schlichten Quadrat. 
Ansonsten gibt es noch einen Zeiger auf die schon bekannte Textstruktur, von der dann 
wieder ein Zeiger auf den Textstring zeigt. 


12.6 Requester 

Ich könnte nun viele Menü-Punkte und Gadgets erzeugen, damit schön Seiten füllen, 
Sie aber langweilen. Auch andere Strukturen sind nicht schwieriger. Genau steht alles 
im »Intuition Reference Manual«, dessen Lektüre ich Ihnen sehr empfehlen kann. Zur 
Übung sollten Sie aber einmal einen Requester in das Programm einbauen, dessen 
Aufruf zum Beispiel an der Stelle stehen kann, an der ich jetzt mit »DisplayBeep« den 
Schirm kurz rot blitzen lasse. 

Der einfachste Fall ist der Auto-Requester, der im Prinzip eine Frage stellt und zwei 
Antworten (zwei Gadgets) zuläßt. Der Aufruf erfolgt mit 

CALLINT AutoRequest 
wobei vorher geladen werden sollten: 

aO: Zeiger auf Fensterstruktur (hier lea windowptr,aO) 

al: Zeiger auf Textstruktur mit der Frage 

(Nehmen Sie doch einfach lea MNameO,al) 
a2: Zeiger auf Textstruktur mit Text, linkes Gadget 

a3: Zeiger auf Textstruktur mit Text, rechtes Gadget 

(Nehmen Sie doch einfach lea G0text,a2 

lea Gltext,a3) 

d0,dl: IDCMP-Flags, die angeben, was wie Klicken in 

das linke/rechte Gadget erkannt werden soll. 

(Nehmen Sie vorerst clr.l dO / clr.l dl) 
d2.1,d3.1: Breite und Höhe des Requesters 
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12.7 C in Assembler umschreiben 

Im Hardware-Manual finden Sie schöne Beispiele für die direkte Programmierung der 
Grafik-Hardware in Assembler. Wenn Sie extrem schnelle Grafik interessiert, empfehle 
ich den Kauf dieses Werkes. Ansonsten sind die meisten Beispiele der Amiga-Doku- 
mentation in C geschrieben, auch Intuition, was Grund genug ist, uns einmal um die 
Übersetzung in Assembler zu kümmern. 

Ein »#include« ersetzen Sie durch »include«, beim File-Namen ändern Sie die Exten¬ 
sion von h in i. Für 

/define Name Wert 

schreiben Sie 

Name equ Wert 

Die Namen der Funktionen stimmen überein, nur daß wir immer _LVO davorsetzen 
müssen. Nehmen wir allerdings die Makros, kommen wir C noch näher, denn zum 
Beispiel 


move.l _IntuitionBase,a6 
jsr _LVOOpenWindow(a6) 


heißt mittels Makro nur 

CALLINT OpenWindov 

Die Datentypen in C machen viel Lärm um wenig, wobei gilt: 


C-Typ 

Assembler-Typ 

int 

.W 

long int 

.L 

unsigned int 

.W 

char 

.B 

BYTE 

.B 

UBYTE 

.B 

WORD 

.W 

UWORD 

.W 

LONG 

.L 

ULONG 

.L 
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Die groß geschriebenen Typen sind übrigens keine echten C-Typen, sondern nur 
Makros. Das in C beim Aufruf übliche 

if OpenWindov(&vindovptr)==0 
exit(false) 

ersetzen Sie durch 
tst.l d0 

beq exit ;dort Close Libs und so und rts 

Ein Ausdruck wie 

windovprt->vd_RPort 


kostet uns in Assembler die Zeilen 

move.l windowptr.al 
move.l vd_RPort(a1),a1 

Die Strukturen werden Sie schon anhand der Namen wiedererkennen. Manchmal fin¬ 
den Sie auch nur deren Namen mit dem Präfix »extern«. Das ist dann eine Anweisung 
an den Linker, diese Struktur einzubinden. 

Zum Schluß (und Trost): Assembler ist immer schneller, nicht nur weil der Code, den 
Sie schreiben, besser ist (maßgeschneiderter) als der des C-Compilers, sondern auch 
aus einem simplen Grund. Die Parameterübergabe an die System-Routinen läuft 
immer über Register, wie Sie es bisher auch praktiziert haben. In C läuft das aber per 
Sprachdefinition über den Stack. Folglich muß der C-Compiler einen Code erzeugen, 
der erst die Parameter auf den Stack packt und dann immer ein sogenanntes Binding 
erzeugt, das diese Parameter wieder vom Stack holt und in die Register lädt. 
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13.1 Anforderungen an die Routinen 

Lageunabhängig 

Im Amiga gibt es kein sicheres Plätzchen, wie zum Beispiel das Stück nicht genutzten 
Video-RAM des Atari ST. Ansonsten ist diese Technik auch nicht zu empfehlen, denn 
sollte wirklich jemand einen unbelegten Speicherbereich beim Amiga entdecken, so 
werden alle ihre Assembler-Routinen da speichern wollen, was dann zu Konflikten 
führt. 

Daraus folgt die erste Forderung an die Routine, sie muß lageunabhängig sein, neu¬ 
deutsch: position independend. Damit sind leider Adressierungen wie 

move.l /buffer,d2 

nicht erlaubt. Abhilfe bringt die PC-relative Adressierung (siehe auch Kapitel 3.6). Nun 
wäre eine Schreibweise wie »move.l buffer(pc),d2« natürlich Unsinn, denn »buffer« ist 
eine Adresse und keine Adreßdistanz. Die könnte man errechnen, einfacher ist jedoch 
diese Form: 

lea buffer(pc),a0 

move.l a0,d2 

Bliebe noch ein Problem: Die PC-relative Adressierung ist beim Zieloperanden nicht 
möglich. Verboten ist also zum Beispiel 

move /l.dahin(pc) ;falsch! 

Auch hier bringen zwei Befehle Abhilfe, nämlich 

lea dahin(pc),a0 

move /1,(a0) 

Um zum Beispiel in eine Window-Struktur zu schreiben, kann man aber auch so Vor¬ 
gehen: 


lea vindovdef(pc),a0 

move /1,4(a0) 

Das wäre der richtige Ersatz für 


move /I,uindowdef+4 
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Nur ein Segment 

Sie dürfen für Programm-, Daten- und Variablenspeicher nur ein Segment bilden. Das 
ist kein Problem, Sie müssen nur Anweisungen wie SECTION, DATA und BSS weg¬ 
lassen. Der Grund ist, daß die PC-relative Adressierung nur eine vorzeichenbehaftete 
16-Bit-Distanz erlaubt (+/- 32 Kbyte), der Lader aber die Segmente auf größere 
Distanz legen kann. Logisch, daß auch Ihr Programm nicht größer als 32 Kbyte werden 
darf, zumindest dürfen Befehle und zugehörige Adressen nicht um mehr als 32 Kbyte 
auseinanderliegen. 

Unterprogramm muß alle Register retten 

Daß die Routine mit RTS enden muß, ist klar. Schließlich soll sie auch zu BASIC 
zurückkehren. Wichtig ist, daß Sie zu Beginn der Routine alle Register retten (movem) 
und vor dem RTS wieder zurückspeichern. 

Nur Code und Daten speichern 

Ihre Assembler-Routine sollten Sie nur assemblieren, nicht jedoch linken. Letzteres 
fügt noch diverse Infos für den Lader (des DOS) hinzu, die Sie in BASIC nicht brau¬ 
chen. Kann Ihr Assembler keine reinen Objekt-Module abspeichern, müssen Sie den 
Overhead selbst entfernen. Ein Beispiel dafür kommt noch. 


13.2 Raum für Routinen 

Den Raum für die Routine muß das BASIC-Programm bereitstellen. Dazu kann man 
in BASIC einen entsprechend großen Array definieren oder auch einfach einen String 
verwenden, der von selbst groß genug wird, wenn man den Code da hinein lädt (wird 
noch gezeigt, wie). 


13.3 Laden und Aufrufen von Assembler-Routinen 

Mit Bild 13.1 soll die Assembler-Routine vorgestellt werden, mit der wir uns zuerst 
befassen wollen. Das Programm öffnet ein Fenster, wartet auf eine Taste und ist dann 
auch schon fertig. Hier geht es mir in erster Linie um die Darstellung, wie man auf 
Datenbereiche lageunabhängig zugreift. 
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opt 

l+,p+ ;linkbar, pos. 

indep. 

» bl.s 





include 

dos_equates 

;_LVO-Equates einfügenü! 

RELO 

macro 




lea 

\1(pc),a0 



move. 1 

a0,\2 



endm 



main 





movem. 1 

d0-d6/a0-a6,-(sp) 

;fuer Basic retten 


lea 

dosname(pc),a1 

;Name der DOS-Lib 


moveq 

/0,d0 

;Version egal 


move. 1 

SysBase,a6 

;Basis Exec 


jsr 

_LV00penLibrary(a6) 

;D0S-Lib oeffnen 


tst. 1 

d0 

;Fehler? 


beq 

fini 

;venn Fehler, Ende 


move. 1 

d0, a6 

;Zeiger merken 


RELO 

name,dl 



move. 1 

/1005,d2 

;Status » gibt es 


jsr 

_LV00pen(a6) 

;nun oeffnen 


move. 1 

d0, d5 

;Handle merken 


tst. 1 

d0 

;Fehler? 


beq 

fini 

;wenn ja, abbrechen 


move. 1 

d5, dl 

jvon CON lesen 


RELO 

buffer,d2 

;in diesen Puffer 


move. 1 

/I ,d3 

;1 Zeichen 


Jsr 

_LV0Read(a6) 

;Lesen aufrufen 


move.l 

d5, dl 

;C0N wieder schliessen 


jsr 

_LVOClose(a6) 



move.1 

aö.al 

;DOS-Lib-Basis 


move.1 

SysBase,a6 

;Basis Exec 


jsr 

_LVOCloseLibrary(a6) 

;Funktion "Schliessen" 


movem.1 

(sp)+,d0-d6/a0-a6 


f ini 

rts 


;Return zum CLI 

dosname 

de. b 

’dos.library',0 



enop 

0.2 


narae 

dc.b 

’CON:40/100/580/80/hit 

any key’,0 


enop 

0,2 


buffer 

ds. b 

2 



Bild 13.1: Programm 1, das von BASIC her aufgerufen werden soll 
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Das »position independend« habe ich mit dem Makro RELO etwas rationalisiert. Der 
Hinweis kommt zwar spät, aber immerhin noch: Auch in Programmen, die nicht von 
BASIC her aufgerufen werden sollen, bringt die Methode Vorteile. Dadurch entfallen 
nämlich im Code die Relokatier-Offsets, womit der Code kürzer und damit schneller 
geladen wird. Auch wenn Sie auf RELO verzichten und nur da, wo es eh möglich ist, 
ein »(pc)« einsetzen, bringt das schon etwas. Der Compiler-Switch »p + « (DEVPAC) 
ist übrigens ganz nützlich. Er erzeugt zwar keinen lageunabhängigen Code, meldet aber 
die lageabhängigen Zeilen als Fehler. 

Wenn ein BASIC-Programm eine Assembler-Routine aufrufen soll, muß diese natür¬ 
lich im RAM stehen. Die einfachste Methode ist, den Binär-File mit dem Code dorthin 
zu laden. Doch leider ist das für den Anwender ziemlich lästig, da er außer dem 
BASIC-Programm auch immer den zugehörigen Code-File parat haben muß. Trotz¬ 
dem soll das Verfahren vorgestellt werden, denn es ist (zum Testen) so schön einfach 
und schnell. Bild 13.2 zeigt die Lösung. 


OPEN”:buch/a” AS 1 
1=L0F<1) 

CLOSE 1 

OPEN ”:buch/a” AS 1 LEN=1 
FIELD /I, 1 AS a$ 

GET 1,1 
ass$=a$ 

CLOSE 1 

ass&=SADD(ass$) 

CALL ass& 

END 


Bild 13.2: Methode 1: BASIC und Assembler getrennt 


Mein Code-File hat den schlichten Namen a und steckt im Directory Buch. Mittels der 
LOF-Funktion wird geprüft, wie lang der File ist, das Ergebnis wird in der Variablen 1 
notiert. 

Nun wird der File nochmals geöffnet, jetzt aber als Random-File. Die Recordlänge 
wird gleich der File-Größe gesetzt, womit nur ein »get« ausreicht, den File im Stück 
einzulesen (das ist wichtig). Damit steht der Code im String ass$. Mit SADD kann man 
nun die Adresse des Strings feststellen und der Variablen ass& zuweisen. Beachten Sie 
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den &-Operator! Damit wird der Typ Long-Integer erzwungen, was für eine Adresse 
Grundvoraussetzung ist. Nim kann man schlicht mit 

CALL Adrepvariable 

das Maschinenprogramm aufrufen. Wie gesagt, die Methode hat den Nachteil, daß man 
immer beide Module, den Code und das BASIC-Programm auf der Disk haben muß, 
eine Tatsache, die ein reiner Anwender (beim Kopieren) leider nur zu oft vergißt. 
Abhilfe bringt die Lösung nach Bild 13.3. 


DIM a*(72) 

FOR 1=1 TO 68 

READ a$:a$(i)=VAL(”&h”+a$) 

NEXT 

ass&=VARPTR(aJ!( 1)) 

CALL ass& 

END 

DATA 48E7,FEFE,43FA,0058,7000,2C79,0000,0004 
DATA 4EAE,FDD8,4A80,6700,0044,2C40,41 FA,004C 
DATA 2208,243C,0000,03ED,4EAE,FFE2,2A00,4A80 
DATA 6700,002A,2205,41FA,0050,2408,263C,0000 
DATA 0001,4EAE,FFD6,2205,4EAE,FFDC,224E,2C79 
DATA 0000,0004,4EAE,FE62,4CDF,7F7F,4E75,646F 
DATA 732E,6C69,6272,6172,7900,434F,4E3A,3430 
DATA 2F31,3030,2F35,3830,2F38,302F,6869,7420 
DATA 616E,7920,6B65,7900 


Bild 13.3: Methode 2: BASIC und Assembler in einem File 


Das Maschinenprogramm steht als Hex-Strings in DATA-Zeilen. Mit der einfachen 
Anweisungsfolge in der FOR-Schleife wird es in einen Array geschrieben. Dieser Array 
muß (!!) vom Typ Integer sein, ansonsten würde nämlich BASIC die Zahlen in das 
Fließkomma-Format bringen, womit von unserem Code nichts übrig bliebe. 

Das erste Wort des Codes steht nun in a%(l). Mit VARPTR kann man dessen Adresse 
ermitteln. Den Rest kennen Sie schon. Doch wie kommt der Code in die Data-Zeilen? 
Die kleine Utility, von Bild 13.4 löst genau dieses Problem, natürlich in Assembler, um 
den es hier geht (BASIC wäre einfacher, aber langweilig). 
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opt 

1- 


nur wenn DEVPAC-Assembl 

* ABC = Assembler Basic 

Converter 


* Object-File -> 

Basic- 

DATA-Zeilen 


* (c) 1987 Peter 

* - 

Wollschlaeger 


_SysBase 

equ 

4 ;Basis von Exec 

_LV00penLibrary 

equ 

-552 

Library oeffnen 

_LVOCloseLibrary 

equ 

-414 ;Library schliessen 

_LV00utput 

equ 

-60 

StdOut-Handle holen 

_LV0Hrite 

equ 

-48 

Schreiben (auf File) 

LVORead 

equ 

-42 

Lesen 

_LV00pen 

equ 

-30 

File oeffnen 

LVOClose 

equ 

-36 

schliessen 

MODE OLDFILE 

equ 

1005 

File existiert 

MODE_NEWFILE 

equ 

1006 

File neu/ueberschreiben 

* Einige simple Makros 

zum File-Handling 



OPEN 

macro 




move. 1 

\1,d1 

;Name 


move. 1 

\2,d2 

;Mode 


jsr 

_LV00pen(a6) 



endm 



READ 

macro 




move.1 

\1,d1 

;Handle 


move.1 

\2,d2 

,-Puffer-Adr 


move.1 

\3,d3 

;Max. 


jsr 

_LV0Read(a6) 



endm 



WRITE 

macro 




move.1 

\1,dl 

;Handle 


move.1 

\2,d2 

;Puffer-Adr 


move.1 

\3,d3 

;Anzahl 


Jsr 

_LVOWrite(a6) 



endm 



CLOSE 

macro 




move.1 

\1, dl 

;Handle 


jsr 

_LVOClose(a6) 



endm 



46- 





movem.l a0/d0,-(sp) 


;Parms. Kommandozeile 
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* DOS-Lib oeffnen: 


main 

move. 1 

/dosname,a1 

;Name der DOS-Lib 


moveq 

/0, d0 

[Version egal 


move. 1 

SysBase,a6 

[Basis Exec 


jsr 

_LV00penLibrary(a6) 

;D0S-Lib oeffnen 


tst.l 

d0 

[Fehler? 


beq 

fini 

;wenn Fehler, Ende 


move. 1 

d0,a6 

[Zeiger merken 

Kommando 2 eile 

parsen 



movem. 1 

(sp)+,a0/d0 

[hole Parms 


move. b 

/' ’,-1(a0,d0.1) 

[terminiere mit Blank wei 




mein Parser das will 


lea 

quelle,a1 

[Puffer Name Quellfile 


bsr 

parse 

[hole ihn 


lea 

ziel,a1 

[Name Zielfile 


bsr 

parse 

;dito 

Beide 

Files oeffnen 



OPEN 

/quelle,/M0DE_0LDFILE 



move.l 

d0,d4 

[Handle 


tst.l 

d0 

[ging was schief? 


bne 

weiter 

;wenn nicht 


jsr 

_LV00utput(a6) 

[Hole Output-Handle 


WRITE 

d0,/msg1,/lenl 

;und melde Fehler 


bra 

cl_lib 

;und Ende 

eiter 

OPEN 

/ziel,/MODE NEWFILE 

;wie vor nun mit Zielfile 


move.l 

d0,d5 



tst.l 

d0 



bne 

Start 



jsr 

_LV00utput(a6) 

[Hole Output-Handle 


WRITE 

d0,/msg2,/len2 



bra 

ol_q 



* Hier geht’s nun los 

* - 


start 

READ 

d4,/buffer,/16 

[Header skippen 

loop 

READ 

tst.l 

beq 

d4,/buffer,/l6 
d0 

cl_z 

[Lese 16 Bytes oder weniger 
;End of File? 

;wenn ja 


asr 

subq 

move 

/I ,d0 
/I ,d0 
d0,d6 

[gelesene Bytes durch 2 
;- 1 wegen dbra-loop 
[Anzahl Worte merken 


WRITE 

d5,/data,/6 

;write LF + 'DATA ’ 


lea 

buffer,a4 

[Zeiger auf Quelle 
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conv 

move 

(a4)+,d2 


lea 

hbuf,a0 


bsr 

hex 


WRITE 

d5,/hbuf,/4 


cmp 

/0,d6 


beq 

no 


WRITE 

d5,/komma,/1 

no 

dbra 

d6,conv 


bra 

loop 

cl_z 

CLOSE 

d5 

cl_q 

CLOSE 

d4 


parse 

cmp .b 

/' 1 ,(a0)+ 


beq 

parse 


subq.1 

/I ,a0 

Pi 

move.b 

(a0) + ,(al ) + 


cmp. b 

/’ ’,(a0) 


bne 

Pi 


clr.b 

rts 

(al) 


;ein Wort 

; soll dahin 

;als Hex-String 
;auf Zielfile 
[letztes Wort in Zeile? 
;wenn nicht 

,'sonst ein Komma dahinter 
;bis Zeile fertig 
;bis EOF 

[Close Zielfile 
;und Quellfile 

;DOS-Lib-Basis 
;Basis Exec 

[Funktion "Schliessen” 
[Return zum CLI 


[fuehrende Blanks 
;skippen 

;wir waren 1 zu weit 

;nun kopiere 

;bis wieder ein Blank 

[Terminiere mit 0-Byte 


cl_lib move.l a6,a1 

move.l _SysBase,a6 
jsr _LVOCloseLibrary(a6) 

fini rts 

* Einfacher Parser; kennt nur Blanks als Delimeter 

* 


* Konvertiere d2.w in ASCII-String ab (a0) 

* - 


hex 

moveq 

/3, dl 

;fuer 4 Nibble 

next 

rol 

/4,d2 

[hole 1 Nibble 


move 

d2,d3 

;nach d3 retten 


and.b 

/$0f,d3 

[maskiere es 


add.b 

/48,d3 

;in ASCII wandeln 


cmp. b 

/58,d3 

[ist es >9 ? 


bcs 

out 

;wenn nicht 


addq.b 

/7,d3 

[sonst muss es A-F sein 

out 

move.b 

d3,(a0)+ 

;1 Zeichen abspeichern 


dbra 

dl,next 

;next nibble 


rts 




X- 

* Datenbereich: 

dosname dc.b ’dos.library’,0 
cnop 0,2 
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data 

dc.b 

10,'DATA ’ 



cnop 

0,2 


komma 

dc.b 

1 1 
• 



cnop 

0,2 


msgl 

de. b 

’Quellflle nicht 

gefunden’, 10 

lenl 

equ 

*-msg1 



cnop 

0,2 


msg2 

de. b 

'Konnte Zielfile 

nicht oeffnen’,10 

len2 

equ 

*-msg2 



cnop 

0,2 


quelle 

ds .b 

40 


ziel 

ds. b 

40 


buffer 

ds. b 

16 


hbuf 

ds .b 

4 



Bild 13.4: Assembler-Programm generiert BASIC-Zeilen 


Das Listing mitsamt Beschreibung habe ich schon einmal im 68000er veröffentlicht, 
damals als Einführung für 68000er-Profis in die Amiga-Programmierung. Da Sie schon 
weiter sind, streiche ich den größten Teil des Artikeltextes. Einiges lasse ich sozusagen 
als Repetitorium stehen. Das Programm namens ABC wird mit der Syntax 

ABC Object_File Basic_File 

im CLI aufgerufen. Object_File ist das Maschinenprogramm, so wie es der Assembler 
erzeugt. BASIC_File ist danach reiner ASCII-Text, in dem jede Zeile mit dem Wort 
DATA beginnt. In den DATA-Zeilen steht das Maschinenprogramm in Form von 
Strings. Jeder String ist ein Wort in hexadezimaler Notation. Die hexadezimale 
Schreibweise hat den Vorteil, daß man ein Programm besser lesen kann. 

Zwischen mir und dem Amiga wurde vereinbart, daß in jeder Zeile acht Wörter stehen 
sollen. Daraus folgt dann folgendes Schema für das Programm: 

1. Zerlege Kommandozeile in die Filenamen Quelle und Ziel 

2. Öffne die Files 

3. Schreibe ein Linefeed plus das Wort DATA plus 1 Blank 

4. Lese 16 Byte 

3. Wandle 16 Byte in acht Hexstrings 

6. Schreibe acht Strings durch Kommas getrennt 

7. Wiederhole ab 3. bis EOF(Quelle) 

8. Schließe die Files 

Kleine Schwierigkeit: Es bleiben zum Schluß nicht 16 Byte übrig, folglich gilt: Lese 16 
Byte oder was noch da ist. Wandle davon die Hälfte in Hex-Worte. Natürlich muß man 
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auch prüfen, ob beim Öffnen der Files etwas schiefging und gegebenenfalls eine Fehler¬ 
meldung ausgeben. 

Damit hätten wir die Aufgabe beschrieben, nun zur Lösung. Nach dem Programmstart 
steht die Adresse der Kommandozeile (aller Text, der dem Programmnamen folgt) im 
Register AO, ihre Länge in DO. Es ist üblich, zuerst diese Parameter zu retten, dann 
zuzusehen, ob man seine Libs öffnen kann, und danach die Kommandozeile zu inter¬ 
pretieren. Sie können natürlich die beiden »movem« sparen, indem Sie das Öffnen der 
DOS-Lib nach dem »parsen« schreiben. 

Wie auch immer, der Parser kopiert die beiden File-Namen von der Kommandozeile in 
zwei Puffer und schließt sie (DOS will es so) mit einem Null-Byte ab. Nun versuche ich, 
die beiden Files zu öffnen. Im Fehlerfall hole ich mittels »_LVOOutput« die Handle 
der Standard-Ausgabe (hier das CLI-Fenster) und gebe mit demselben WRITE-Makro 
die Fehlermeldung aus. 

Hier liegt übrigens der Grund dafür, daß Sie das Programm nur vom CLI aus aufrufen 
dürfen. Auch »RUN ABC...« ist nicht erlaubt. Wenn Sie das wollen, müssen Sie ein 
eigenes Fenster öffnen und das geht so: 

move.l /vindov.dl ;Adresse 

move.l /M0DE_0LDFILE,d2 ;Status * gibt es 

jsr _LV00pen(a6) ;nun oeffnen 

Mit unserem Makro wird die Sache noch einfacher, also 

OPEN /vindov,/MODE_OLDFILE 

Danach steht die Handle in DO und kann sowohl für die Eingabe (Read) als auch die 
Ausgabe (Write) eingesetzt werden. Im Datenbereich fehlt dann noch 

vindow dc.b 'CON:40/100/580/80/Fenstertitel 1 ,0 

Die vier Zahlen beschreiben die linke obere Ecke des Fensters, seine Breite und Höhe. 
Danach folgt der Titel. Nach dem Aufruf sollten Sie die Handle (DO) sichern. Ver¬ 
gessen Sie nicht, das Fenster wieder zu schließen. 

Nun zeige mir jemand einen 68000er, bei dem sich Windows so einfach öffnen lassen 
(mittels System-Software)! Dieses Fenster hat zwar nicht die Mächtigkeit eines Intui¬ 
tion-Windows, ist dafür aber sehr bequem zu handhaben. 

Ab »Hier geht’s nun los« werden zuerst 16 Byte blind gelesen (kommt gleich), danach 
läuft die schon geschilderte Read/Write-Schleife. Zum Schluß werden die Files 
geschlossen und schließlich noch die DOS-Library. 
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Die 16 Byte, die ich anfangs überlese, sind der sogenannte File-Header. Sie finden da 
zuerst ein Langwort des Inhalts $000003E7. Das heißt, hier beginnt eine Programm- 
Unit. Danach folgt ein Langwort des Inhalts 0, sofern Sie dem Modul keinen Namen 
gegeben haben (sollten Sie auch nicht tun). Das letzte Langwort könnte der Grund 
sein, warum Sie vielleicht die Zeile ändern und nur 12 Byte überlesen wollen. Hier steht 
nämlich die Länge des Moduls in Langworten minus eins. 

Zu den Unterprogrammen: Der Parser sucht einen Text ab Adresse in A0, der mit je 
einem Blank beginnen und enden muß. Das letzte Blank wurde vorab mit 

move.b /' ’,-1(a0,d0.1) 

an das Ende der Kommandozeile gezwungen, übrigens ein schönes Beispiel für die 
Mächtigkeit der 68000-Adressierungsarten. Der vom Parser isolierte Text wird in den 
Puffer ab Al kopiert. Da es sich um Filenamen handelt, werden die Texte mit einem 
Null-Byte terminiert. 

Die Routine »hex« konvertiert eine Binärzahl in einen String, der den Wert in hex dar¬ 
stellt. Wenn Sie den Schleifenzähler wieder von 3 in 7 ändern und das »rol« in »rol.l« 
können Sie damit auch Langworte wandeln, wie schon im Kapitel 5 erklärt. 


13.4 Die Parameterübergabe 

Bis hierher war die Sache zwar einfach, aber kaum realistisch. In der Regel wird man 
nämlich Daten an die Assembler-Routine übergeben müssen und sich das Ergebnis 
(die Ergebnisse) auch von dort holen wollen. Frage also: Wie übergibt man Parameter 
in beiden Richtungen? 

Antwort 1: Man muß auch die Ergebnis-Variablen übergeben. Das Assembler-Pro¬ 
gramm muß diese dann ändern. Genauer: Man übergibt die Adressen der BASIC- 
Variablen, die Maschinenroutine schreibt ab dort das Ergebnis hinein. 

Antwort 2: Die Parameterübergabe läuft über den Stack. 

Am besten erklärt man das an einem Beispiel. Ich möchte ganz simpel, daß die Assem¬ 
bler-Routine in einem String das letzte Zeichen duch ein x ersetzt. Dazu muß ich zwei 
Parameter übergeben, nämlich die Adresse des Strings und seine Länge. In BASIC 
sähe das so aus wie in Bild 13.5. 
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DIM a*(13),r*(3) 

FOR i=1 TO 13 

READ a$:aJS(i)=VAL(”&h"+a$) 
NEXT 


a$=”hallo” 

Adresse&=SADD(a$) 

Laenge&=LEN(a$) 

ass&=VARPTR(a?S(1)) 

CALL ass&(Adresse&,Laenge&) 

PRINT a$ 

END 

DATA 48E7,8080,206F,000C,202F,0010,5380,11BC 
DATA 0078,0800,4CDF,0101,4E75 


Bild 13.5: BASIC-String soll modifiziert werden 


Wie üblich wird wieder die Routine aus Data-Zeilen geladen, ihre Adresse steht dann 
in ass&. Adresse und Länge des Strings werden bestimmt, und dann erfolgt der Aufruf 
mit 


CALL ass&(Adresse&,Laenge&) 

Schauen wir uns nun an, was in den Data-Zeilen steckt; Bild 13.6 verrät das Geheimnis. 


opt 

l+,p+ 



movem. 1 

a0/d0,-(sp) 

;8 mehr auf dem 

Stack 



+Returnadresse 

macht 12 

move. 1 

12(sp),a0 

;Adresse 


move. 1 

16 (sp), d/3 

;Laenge 


subq. 1 

/I ,d0 



move .b 

/’x’,0(a0,d0.1) 



movem.1 

rts 

(sp)+,a0/d0 




Bild 13.6: Bedeutung der Data-Zeilen in Bild 13.5 
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Ich muß mir eigentlich nur merken, daß durch das »movem« zusätzlich noch 8 Byte auf 
den Stack gekommen sind (zwei Register) und auch noch die Return-Adresse mit 
4 Byte existiert, macht in der Summe 12. 

Nun kann ich einfach im 4er Abstand, beginnend mit 12, auf die Parameter der Reihe 
nach zugreifen. Doch Vorsicht, so einfach ist das nur, wenn alle Parameter vom Typ 
Long sind. Da der Stack von den hohen zu den tiefen Adressen wächst, ist 12(sp) tiefer 
als 16(sp). Das heißt, der Parameter bei 12(sp) ist der letzte auf dem Stack, dieser 
(Adresse&) war aber der erste im Aufruf. Anders ausgedrückt: Die Parameter werden 
in umgekehrter Reihenfolge abgelegt. 

Schauen wir uns deshalb noch ein Beispiel an. Laut Bild 13.7 soll ein Array oder ein 
Teil davon ganz schnell mit dem gleichen Wert in allen (oder den ausgewählten) 
Elementen geladen werden. 


DI« a*(15),r*(100) 

FOR i-1 TO 15 

READ a$:a/J(i)=VAL(”&h”+a$) 
NEXT 


ass&=0 


Laenge&=5 

Wer«=123 

Adresse&=VARPTR(rJS(3)) 

ass&=VARPTR(a5S( 1)) 

CALL ass&(Adresse&,Laenge&,Wert$) 

FOR i-1 TO 10 
PRINT r*(i) 

NEXT 

END 

DATA 48E7,C080,206F,0010,202F,0014,322F,001A 
DATA 5380,3001,51C8,FFFC.4CDF,0103,4E75 


Bild 13.7: Ein Array wird initialisiert 


Übergeben muß ich die Adresse des Elements, ab dem der Array geladen werden soll 
(hier r%(3)), die Länge (Anzahl der Elemente) und natürlich den Wert. Der Wert ist 
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aber als einziger vom Typ Integer, sprich belegt nur 2 Byte. Doch schauen wir uns an, 
was BASIC dafür auf den Stack packt. Der Aufruf lautet wieder: 

CALL ass&(Adresse&,Laenge&,Wert$) 

Schauen wir uns die Assembler-Routine dazu an (Bild 13.8). 

opt 

i+.p+ 


movem.1 

a0/d0-d1,—(sp) 

; 12 mehr auf dem Stack 

1 


+Returnadresse macht 16 

move.1 

16(sp),a0 

; Adresse 

move.1 

20(sp),d0 

jAnzahl 

move.v 

26(sp),dl 

;Wert 

subq.1 

/I ,d0 

1 wegen dbra 

loop move.v 

dl, (a0) + 


dbra 

d0,loop 


movem.1 

(sp)+,a0/d0-dl 


rts 




Bild 13.8: Die Assembler-Routine zu Bild 13.7 


Daß ich nun bei 16 anfangen muß, ist klar. Schließlich sind drei Register und die 
Return-Adresse mit je 4 Byte auf dem Stack. Doch warum finde ich den Wert bei 
26(sp) und nicht bei 24(sp)? Offensichtlich läßt sich BASIC durch das %Zeichen (was 
short Integer heißen soll) nicht beeindrucken, und packt auch dann 4 Byte auf den 
Stack. Tatsächlich können Sie in BASIC auch »Wert&« schreiben und dann den Wert 
bei 24(sp) als Langwort abholen. Das ist an sich klarer, macht aber Probleme bei nega¬ 
tiven Zahlen, da dann ja das Vorzeichen sozusagen in Bit 31 steht, was natürlich schief¬ 
geht, wenn man nur die Bits 0 bis 15 in ein Wort übernimmt. 

Wenn bei Ihren Experimenten etwas schiefgeht, schauen Sie sich auch Ihr BASIC-Pro- 
gramm an. Ich habe beispielsweise beim Testen der Routine einen bildschönen Absturz 
erlebt, weil ich anstatt r% a% geschrieben habe, was dann leider zur Folge hatte, daß 
ich mit »Wert« die Assembler-Routine überschrieben habe, als sie mitten in der 
Ausführung war. 

Auch sollten Sie darauf achten, keine neuen Variablen in BASIC anzuziehen, wenn Sie 
vorher mit VARPTR oder SADD eine Adresse bestimmt haben. Die neue Variable 
kann die älteren verschieben, so daß dann deren Adressen nicht mehr stimmen. Am 
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einfachsten weist man vorab allen Variablen einen Wert zu. So sinnlos ist also 
»ass& = 0« in Bild 13.7 gar nicht. 


13.5 CLI-Befehle in BASIC aufrufen 

Zum Schluß eine nützliche Routine, die den Shell-Befehl von MS-BASIC (IBM-PC) 
auch für Amiga-BASIC zur Verfügung stellt. Wie man den Execute-Befehl des DOS 
dafür nutzt, wissen Sie schon. Wie man einen String übergibt, ist Ihnen auch nicht neu. 
Kombiniert man alles, entsteht das Programm von Bild 13.9. 


opt l+,p+ [linkbar, pos. indep. 

* Shell. s Routine zum Aufruf von CLI-Befehlen in Basic 

* (c) 1987 Peter Wollschlaeger 


_SysBase 

equ 4 

;Basis von Exec 

_LV00penLibrary 

equ -552 

[Library oeffnen 

_LVOCloseLibrary equ -414 

[Library schliessen 

_LV0Read 

equ -42 

;Lese File 

JLVOOpen 

_LV0Close 

equ -30 
equ -36 

;0pen File 

_LV0Execute 

equ -222 

;Execute CLI-Cmd 

RELO macro 

lea 

\1 (pc),a0 

;Pgm muss lage- 

move. 1 

endm 

a0,\2 

[unabhaengig werden 

movem.1 

d0-d6/a0-a6,-(sp) 

; 14*4=56 Bytes 
+ Return-Adr. = 60 

_main lea 

dosname(pc),a1 

;Name der DOS-Lib 

moveq 

/0,d0 

[Version egal 

move. 1 

_SysBase,a6 

;Basis Exec 

jsr 

_LV00penLibrary(a6) 

;D0S-Lib oeffnen 

tst.l 

d0 

[Fehler? 

beq 

fini 

;venn Fehler, Ende 

move. 1 

d0,a6 

;Zeiger merken 

RELO 

name,dl 

;Name DOS-Lib 

move.l 

/I005,d2 

;Status = gibt es 

jsr 

_LV00pen(a6) 

;nun oeffnen 

move.1 

d0,d5 

;Handle merken 

tst.l 

d0 

;Fehler? 

beq 

fini 

;wenn ja, abbrechen 
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move. 1 

60(sp),a0 

Adresse Basic-String 


move. 1 

64(sp),d0 

Laenge 


subq.1 

/1,d0 

-1 wegen dbra 


lea 

buffer(pc),a1 

dahin 

loop 

move.b 

(a0)+,(al)+ 

kopieren 


dbra 

d0,loop 



move.b 

/0, (al) 

terminiere mit 0 


RELO 

buffer,dl 

Adresse CLI-Befehl 


clr.l 

d2 

kein Input 


move.1 

d5,d3 

Window-Handle 


jsr 

_LV0Execute(a6) 

CLI aufrufen 


move.1 

d5,d1 

von CON lesen 


RELO 

buffer,d2 

in diesen Puffer 


move.1 

/I ,d? 

1 Zeichen 


jsr 

_LV0Read(a6) 

Lesen aufrufen 


'''-move.1 

d5,d1 ;C0N wieder schliessen 


jsr 

_LV0Close(a6) 



move.1 

a6,a1 

DOS-Lib-Basis 


move.l 

_SysBase,a6 

Basis Exec 


jsr 

_LVOCloseLibrary(a6) 

Funktion "Schliessen” 

f ini 

movem.1 

(sp)+,d0-d6/a0-a6 



rts 

;Return zum CLI 

dosname dc.b 

■ dos.library’,0 



cnop 

0,2 


name 

de. b 

’CON:10/20/600/160/Mit beliebiger Taste -> Basi 


cnop 

0,2 


buffer 

dc.b 

’ABCDE’ ;damit ich das finde 


end 




Bild 13.9: Damit wird der Shell-Befehl emuliert 


Im Prinzip tue ich nichts weiter, als den String, den BASIC übergibt, in einen Puffer zu 
kopieren und mit einem Null-Byte abzuschließen. Damit kann ich dann _LVOExecute 
aufrufen. Die Ausgabe erfolgt in einem eigenen Fenster. Dann wird auf eine Taste 
gewartet (ein Zeichen gelesen), und es geht zurück zum BASIC. Dessen Listing zeigt 
Bild 13.10. 
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1 Shell-Befehl in Amiga-Basic 
’ (c) 1987 Peter Wollschlaeger 

DIM assemJS(140): InitShell 


Shell "dir jh0:" 'Demo 
END 

SUB InitShell STATIC 
SHARED asseirfO 
FOR i-1 TO 96 

READ a$:assem#(i)=VAL(”&h”+a$) 

NEXT 
END SUB 

SUB shell(a$) STATIC 
SHARED assem^O 

Adresse&=SADD(a$): Laenge&=LEN(a$) 
ass&=VARPTR(assem£(1 )) 

CALL ass&(Adresse&,Laenge&) 

END SUB 

DATA 48E7,FEFE,43FA,007E,7000,2C79,0000,0004 
DATA 4EAE,FDD8,4A80,6700,0066,2C40,41FA,0072 
DATA 2208,243C,0000,03ED.4EAE,FFE2,2A00,4A80 
DATA 6700,004C,206F,003C,202F,0040,5380,43FA 
DATA 0080,12D8,51C8,FFFC,12BC,0000,41 FA,0072 
DATA 2208,4282,2605,4EAE.FF22,2205,41FA,0062 
DATA 2408,263C,0000,0001,4EAE,FFD6,2205,4EAE 


DATA FFDC,224E,2C79,0000,0004,4EAE,FE62,4CDF 
DATA 7F7F,4E75,646F,732E,6C69,6272,6172,7900 
DATA 434F.4E3A,3130,2F32.302F,3630,302F,3136 
DATA 302F.4D69,7420,6265,6C69,6562,6967,6572 
DATA 2054,6173,7465,202D.3E20,4261,7369,6300 


Bild 13.10: Der BASIC-Teilzu Bild 13.9 


Etwas tricky ist die Geschichte mit dem Puffer gelöst. Da der rund 80 Zeichen groß 
sein sollte, ein »ds.b 80« aber die Data-Zeilen um 40 Worte mit »0000« verlängert 
hätte, steht in BASIC gar nichts zum Thema Puffer. Im Assembler-Listing hatte ich den 
Pufferbeginn mit »dc.b ’ABCDE’« markiert. Damit konnte ich die Stelle in den ur¬ 
sprünglich von ABC erzeugten Data-Zeilen leicht finden. Ab diesem Wort (AB) habe 
ich dann alle Datas in BASIC gelöscht. Der Array wurde aber mit 140 größer dimen- 
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sioniert als der Code (96 Worte) dies erfordert. Der Rest dient als Puffer. So löst man 
also das Problem. 

Bliebe noch eines: In dieser Lösung wartet die Assembler-Routine immer auf einen 
Tastendruck, bevor sie zum BASIC zurückkehrt. Das ist natürlich sinnvoll, wenn man 
sich das Ergebnis von zum Beispiel einem Dir-Befehl auch ansehen will, es stört jedoch, 
wenn man »shell« in einem laufenden Programm benutzt, um zum Beispiel Dateien zu 
kopieren. Mein Vorschlag wäre: Ersetzen Sie einfach das »jsr _LVORead(a6)« durch 
»NOP NOP«. NOP heißt No Operation (tue nichts) und hat den Code 4E71. 

Im Listing sind die beiden Datenworte unterstrichen, die Sie mit NOPs überschreiben 
müssen. Am besten lösen Sie das in BASIC. Schreiben Sie zwei Sub-Programme, Shell 
und ShellWarte. Das eine schreibt zuerst (numerisch) $4EAE, $FFD6 in die richtigen 
Elemente des Arrays, das andere zweimal $4E71. 
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14.1 Prozesse und Tasks 

Bisher hatten wir immer nur von Tasks gesprochen. Im Gegensatz dazu stehen beim 
Amiga Prozesse, was etwas verwirrend ist, denn üblicherweise ist Prozeß die deutsche 
Übersetzung von Task. Ich muß das deshalb wieder zurückübersetzen. In diesem Sinn 
ist ein Prozeß ein Ober-Task. Praktisch hat das zur Folge: Unter einem Prozeß können 
verschiedene Tasks (quasi) gleichzeitig laufen. Ein Task selbst kann nur einen anderen 
Task aufrufen, der dann anstatt seiner läuft. 

Wenn Sie sich einmal die Datenstrukturen im Anhang ansehen, werden Sie feststellen, 
daß ein Task-Kontroll-Block nur eine Untermenge (ein Auszug) eines Prozeß-Kon- 
troll-Blocks ist. Sie werden selten auf diese Strukturen zugreifen; wenn, dann sollten Sie 
jedoch wissen, auf welche. Im Kapitel 9 hatten wir im PLB (deutsch: Prozeß-Leit- 
Block) nachgesehen, wo sich unser Task befindet. Der direkte Zugriff im Sinn von 
Ändern von Parametern dieser Strukturen ist immer riskant (zu viele Randbedin¬ 
gungen sind zu beachten). Deshalb gibt es auch für alle wichtigen Anwendungen Funk¬ 
tionen, zum Beispiel für das Ändern der Priorität eines Tasks. 


14.2 Exec, der Boß 

Exec ist die Abkürzung von Executive, was im amerikanischen soviel wie Chef (leiten¬ 
der Angestellter) bedeutet. Exec ist natürlich ein Prozeß, der immer (solange der 
Amiga eingeschaltet ist) läuft. 

Multitasking 

Exec selbst ist das Multitasking-System des Amiga. So ein System hat die Aufgabe, die 
Ressourcen eines Systems auf verschiedene Tasks zu verteilen. Ressourcen sind die 
CPU (der 68000), der Hauptspeicher und die Peripherie-Geräte. Unteilbare Res¬ 
sourcen wie die CPU werden beim Amiga nach einem Prioritäten-Verfahren vergeben. 
Zuerst wird der Task mit der höheren Priorität abgearbeitet, dann der nächst niedere. 
Haben mehrere Tasks die gleiche Priorität, werden sie nach einem Zeitscheibenver¬ 
fahren (Time-Sharing) in Intervallen bearbeitet. Durch Hardware-Interrupts bekommt 
Exec die Sache immer wieder in den Griff, auch wenn ein Task seine Tätigkeit nicht 
beenden möchte. 

Ein Task hat drei Zustände, nämlich laufend, nicht laufend und wartend. Mit Rücksicht 
auf andere Tasks sollte ein Task möglichst oft in den Zustand wartend (auf Eingabe) 
gesetzt werden. Wie das geschieht, wurde im Kapitel 12 (Events) gezeigt. Wenn man 
nicht JLVOWait aufruft, sondern dauernd mit _LVOGetMsg (meistens umsonst) 
nachfragt, ob eine Nachricht anhegt, verbraucht das nur unnötig Zeit, die anderen 
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Tasks dann fehlt. Ich betone das extra, denn ich habe leider schon viele Listings ge¬ 
sehen, die diesen unsauberen Programmierstil zeigen. 

Speicherverwaltung 

Die Ressource RAM wird jedem Task permanent zugeteilt, was seinen Speicher für 
Programm-Code und Daten betrifft. Gefährlich wird es für einen Task, wenn er dyna¬ 
misch (während des Programmlaufs) Speicher anfordert (allokiert). Der Speicher¬ 
bedarf kann unter Umständen nicht erfüllt werden, wenn andere Tasks schon alles ver¬ 
braucht haben. Deshalb sollten Sie Ihren Speicherbedarf zum Programmanfang be¬ 
legen (zu belegen versuchen) und nicht erst den User diverse Eingaben vornehmen 
lassen. 

Sinngemäßes gilt für die Libraries. Sie müssen eine Library mit JLVOOpenLibrary öff¬ 
nen. Exec schaut dann nach, ob diese Lib schon geladen ist (oder im ROM oder Kick¬ 
start-RAM steht). Wenn nicht, versucht Exec die Lib von der Disk zu laden. Fehlt dafür 
der Speicher, gibt Exec als Lib-Basis Null zurück. Folglich sollte Ihr Programm auch 
alle Libs zu Anfang öffnen und nicht erst bei Bedarf, wie man es manchmal sieht. Da 
könnte es dann zu spät sein. Auf jeden Fall sollten Sie aber eine Lib immer sofort 
schließen, wenn Sie sie nicht mehr brauchen. Sind Sie nämlich der einzige oder der 
letzte User dieser Lib, wird Exec den damit belegten Speicher wieder freigeben. 


14.3 DOS, Workbench, Intuition, Libraries und Devices 

Das Amiga-Betriebssystem ist sehr schön in verschiedene Module gegliedert, die hier¬ 
archisch einander zugeordnet sind. Bild 14.1 versucht, diesen Zusammenhang zu ver¬ 
deutlichen. 

Für Sie ist zuerst wichtig, daß Ihre Anwendung immer den Weg zur Hardware finden 
muß. So muß ein Workbench-Programm zuerst Intuition öffnen, um zum Beispiel ein 
Window erstellen zu können. Wollen Sie in diesem Window zeichnen, brauchen Sie 
zumindest Graphics, müssen also auch diese Lib öffnen. 

AmigaDOS ist übrigens ein Prozeß, unter dem mehrere Tasks laufen. So läuft zum Bei¬ 
spiel immer der Disk-Validator, ein Task der ständig durch Probelesen nachsieht, ob in 
allen Laufwerken eine Diskette eingelegt ist. 
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Bild 14.1: Zusammenwirken der Software-Module desAmiga 


Workbench und CLI sind gleichberechtigte Bedienoberflächen, praktisch Programme, 
die die Eingaben des Anwenders interpretieren und im Rahmen ihrer Möglichkeiten 
ausführen. Mit welcher von beiden der Amiga startet, hängt lediglich vom Text in 
»startup-sequence« ab, womit übrigens der Amiga (auch) dem Atari ST überlegen ist, 
bei dem sich diese Start-Alternative nur durch direktes Ändern des Boot-Sektors der 
Startdiskette erreichen läßt, was solide Systemkenntnisse voraussetzt. 
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Intuition brauche ich Ihnen wohl nicht mehr vorzustellen, hier sollte nur die Einord¬ 
nung gezeigt werden. 

Devices 

Die Schnittstelle zur Hardware bilden die Devices, schwach übersetzt, Geräte-Treiber. 
Denn auch diese Treiber sind Tasks, und damit herkömmlichen Treibern deutlich 
überlegen. Ein normaler Peripherie-Treiber stellt nur die Schnittstelle zur Verfügung, 
sprich übersetzt zum Beispiel DOS-Befehle in Bitmuster, die eine spezielle Hardware 
sehen will. Im DOS muß man dann immer noch Zusehen, daß man Zeichen für Zeichen 
an zum Beispiel den Drucker los wird. Anders beim Amiga: Hier sagt man im Prinzip: 
Task (Device), das ist Deine Aufgabe, nun mach Du mal, ich mache inzwischen was 
anderes. 

Strukturen und Listen 

Wie Sie schon mitbekommen haben, läuft beim Amiga ohne Strukturen gar nichts 
(siehe auch Kapitel 11). Fast alle Strukturen werden in Form von Listen verwaltet, wie 
es das folgende Bild andeutet. 


Anker—> 

Zeiger 

—> 

Zeiger 


Daten 


Daten 


—>NIL (0) 


So ein Listenelement nennt man Knoten. Ein Knoten besteht immer aus (mindestens) 
einem Zeiger, der auf den nächsten Knoten zeigt, und Daten. Der letzte Knoten zeigt 
auf NIL (nichts), in Assembler wird dafür einfach eine Null eingetragen. Sie kennen 
solche Strukturen schon von zum Beispiel den Menüs her. 

Exec verwaltet auf diese Art auch die Tasks. Jeder Task hat einen TCB (Task Control 
Block), dessen Daten in einer solchen Liste angelegt sind. Der Unterschied ist lediglich, 
daß die Exec-Listen doppelt verzeigert sind, sprich immer noch ein Zeiger auf den 
Vorgänger existiert. Damit lassen sich typische Operationen zur Task-Verwaltung wie 
das Sortieren der Tasks nach Prioritäten oder das Einfügen und Ausfügen von Knoten 
(Tasks) schneller realisieren. Der interessierte Leser sei auf den Include-File »nodes.i« 
(bei Metacomco und HiSoft) hingewiesen, wo man optimale Makros zur Listenverwal¬ 
tung findet. 
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14.4 DOS und Exec in der Praxis 

14.4.1 Directory 

Zuerst möchte ich noch etwas aus dem DOS nachholen, was bisher nicht erwähnt 
wurde, nämlich der Umgang mit Locks und »FIBs«. 

Der volle Zugriff auf einen File oder ein Directory ist nur über den FIB (File Info 
Block) möglich. Um auf diesen FIB zugreifen zu können, muß man sich vorher ein 
Lock (Schlüssel) besorgen, mit dem man den FIB aufschließen kann. 

Schauen wir uns einmal den FIB an, hier als einen Auszug aus dem Anhang 4, wo Sie 
noch mehr Informationen finden können. 


00 

fib_DiskKey 

ds. 1 

1 


04 

fib_DirEntryType 

ds. 1 

1 

;0=File, >0 = Dir 

08 

fib_FileName 

ds .b 

108 

;trotzdem nur max 

74 

fib_Protection 

ds.l 

1 

;siehe equ unten 

78 

fib_EntryType 

ds. 1 

1 


7C 

fib_Size 

ds.l 

1 

;Filegroesse 

80 

fib_NumBlocks 

ds.l 

1 


84 

fib_DateStamp 

ds .b 

ds SIZEOF 

;letzte Aenderung 

90 

fib_Comment 

ds.b 

116 



fib_SIZE0F 

equ 

$104 



Bild 14.2: Struktur des File Info Block 


Sie sehen, hier stehen alle Informationen zu einem File, wie sein Name, seine Größe 
oder sein Typ. Die Struktur von »date_stamp« (Erstellungs-/Änderungsdatum) steht 
auch im Anhang 4. 

Wie man mit diesen Informationen umgeht, zeigt man am besten mit einem kleinen 
Programm, das ein Directory auslistet. Hierzu dient Bild 14.3. Nun sagen Sie nicht, 
dafür könne man auch DIR im CLI tippen. Was machen Sie zum Beispiel in einem 
Programm, das prüfen soll, ob ein Directory oder File existiert? 
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opt 1- ;nicht linken! 

* DIR_2 Directory mittels DOS-Funktionen anzeigen 


_LV0Lock 

equ -84 

_LVOExamine 

equ -102 

_LVOExNext 

equ -108 

_LV0IoErr 

equ -132 

ERROR_NO_MORE_ENTRIE S equ 

include 

OpenDos.i 

jsr 

_LVOOutput(a6) 

move.1 

d0,d4 

move.1 

/pfad.dl 

move.l 

/-2,d2 

Jsr 

_LV0Lock(a6) 

tst. 1 

d0 

beq 

fertig 

move.1 

d0,d5 

move.1 

d5, dl 

move. 1 

/fib,d2 

jsr 

LV0Examine(a6) 

tst.l 

d0 

beq 

fertig 

bsr 

print 

loop move.l 

d5, dl 

move.1 

/fib,d2 

jsr 

_LV0ExNext(a6) 

tst.l 

d0 

beq 

fertig 

bsr 

print 

bra 

loop 


fertig jsr _LVOIoErr(a6) 


cmpi.1 

/NO_MORE_ENTRIES,d0 

beq 

fl 

move.1 

d4, dl 

move.1 

/err,d2 

move. 1 

/err_len,d3 

jsr 

_LV00utput(a6) 

move.1 

aö.al 

move. 1 

_SysBase,a6 

jsr 

_LV0CloseLibrary(a6) 

rts 



232 

;siehe Kapitel 4 

;Output-Handle holen 
;und merken 

;Adresse Pfadname 
;Zugriff Lesen 
;Lock zum Dir holen 
;gibt es Dir? 

;venn nicht 
;sonst Lock merken 

;Lock 

;Adresse FIB 

jl. Namen (hier Disk) holen 
;Gefunden? 

;venn nicht 
;sonst ausgeben 

;Lock 
; FIB 

;Naechsten File suchen 
;gefunden? 

;uenn nicht 
;sonst ausgeben 
.•bis nichts mehr 

jError-Code holen 
;dieser Fehler? 

;venn so 

;Output-Handle 
;Text 
; d3 

; Ausgabe 

;D0S-Lib schliessen 


/ 


fini 
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print 

move.l 

/fib+8,a0 


clr. 1 

d? 

P 1 

addq.1 

/I ,d3 


tst. b 

(a0) + 


bne 

P 1 


move.b 

/10,(a0) 


move.1 

d4, dl 


move.1 

/fib+8,d2 


jsr 

rts 

LV00utput(a6) 

* Datenbereich 


dosname 

dc.b 

’dos.library',0 


cnop 

0,2 

pfad 

dc.b 

■df0: ' ,0 


cnop 

0,2 

fib 

ds.b 

$104 

err 

dc.b 

10,'Es ging was 

err_len 

equ 

*-err 


[Adresse Name 
[Laengenzaehler 
;inkrementieren 
;Null-Byte? 

;venn nicht 
;0 durch LF ersetzen 
[Output-Handle 
[Adresse Name 
[Name ausgeben 


;siehe Anhang A4.2 
[FilelnfoBlock 
schief',10 


Bild 14.3: Zugriff auf Directory 


Den Lock erhält man sehr einfach auf diese Art: 

move.l /pfad.dl [Adresse Pfadname 

move.l /-2,d2 [Zugriff Lesen 

jsr _LV0Lock(a6) ;Lock zum Dir holen 

Wie üblich, steht nun der Lock in dO, wir sichern ihn gleich in d5. Nun kann man Funk¬ 
tionen aufrufen, die als Parameter den Lock und die Adresse des FTB (bisher nur ein 
leerer Speicherbereich) erwarten. Ein Beispiel dafür wäre (Lock in d5): 

move.l d5,d1 ;Lock 

move.l /fib,d2 [Adresse FIB 

jsr _LV0Examine(a6) ;1. Namen (hier Disk) holen 

JLVOExamine prüft, ob der Pfad (hier der Disk-Name) existiert und schreibt ihn im 
Ja-Fall in den FIB. Hier steht nun der Name ab FIB+ 8 (siehe Bild 14.2). Wir wissen 
nicht, wie lang der Name ist, sondern nur, daß er mit O-Byte endet. Die Routine »print« 
zählt daher zuerst die Zeichen bis zum O-Byte und ruft dann das schon bekannte 
LVOWrite auf. 

Nun gibt es wie in jedem DOS eine Funktion, die weitere Einträge sucht, hier heißt sie 
JLVOExNext (Examine Next). Gibt es nichts mehr, »returnt« sie Null, sonst können 
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wir den Namen ausdrucken. Versuchen Sie doch einmal, auch die File-Größe auszu¬ 
geben. Mit 

move.l fib+$7C,d2 

bringen Sie den Wert in d2, wo ihn »Bindec« (kennen Sie noch?) erwartet. Vergessen 
Sie aber nicht, das LF in »print« herauszunehmen und nach der Zahlenausgabe das LF 
auszugeben. Ob es sich bei dem Namen um ein Directory handelt, läßt sich mittels 
»EntryTyp« feststellen. 


14.4.2 CLI-Befehle aufrufen 

Wenn Sie das Directory nur anzeigen wollen, geht das vom Programm aus/ällerdings 
noch einfacher. Man kann nämlich jeden CLI-Befehl, also auch DIR, von einem Pro¬ 
gramm her aufrufen. Bleiben wir gleich bei DIR, Bild 14.4 zeigt die Lösung. 



opt 

1- ;nicht 

linken! 

* DIR_1 

Directory mittels Execute anze 

igen 

_LVOExecute 

equ -222 



include 

OpenDos.i 

;siehe Kapitel 4 


move.1 

/string.dl 

;Adresse CLI-Befehl 


clr. 1 

d2 

;kein Input 


clr. 1 

d3 

;0utput im CLI-Windov 


jsr 

_LV0Execute(a6) 

;CLI aufrufen 


move.1 

a6,a1 

;D0S-Lib schliessen 


move.l 

_SysBase,a6 



jsr 

_LVOCloseLibrary(a6) 


fini 

rts 



* Datenbereich 



dosname 

dc.b 

’dos.library',0 



cnop 

0,2 


string 

dc.b 

1 dir', 0 



Bild 14.4: Aufruf von CLI-Befehlen (hier DIR) aus einem Programm 
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Die Funktion _LVOExecute verlangt als Parameter zuerst die Adresse (in dl), ab der 
der Befehl im Klartext steht. In d2 und d3 müssen Nullen stehen oder File-Handles, wie 
man sie von LVOOpen erhält. Steht in d2 die Handle einer Eingabedatei, wird diese 
Datei gelesen und ihr Inhalt als Befehlssequenz interpretiert. 

Nun kommt der Knüller: Zuerst wird natürlich der mit dl bezeichnete Befehl ausge¬ 
führt. Da muß aber keiner stehen, Sie können auch dl nullen. Das heißt, daß nun nur 
die Kommandosequenz in dem mit d2 bezeichneten File ausgeführt wird. Wissen Sie 
jetzt, was der EXECUTE-Befehl des CLI macht? 

Steht in d3 eine Null, erfolgt die Ausgabe im aktuellen CLI-Fenster, ansonsten im File, 
dessen Handle hier eingetragen ist. 


14.43 Exec 

Zwischen DOS und Exec besteht ein enger Zusammenhang. Zuerst wird natürlich auch 
DOS von Exec kontrolliert, zum anderen sind viele DOS-Befehle recht faul, Sie reichen 
die Arbeit nur an Exec weiter. 

Das gilt für das gesamte IO (Input, Output), egal ob Disketten, der Drucker oder die 
Sprachausgabe gemeint sind. Prinzipiell läuft das IO so ab, daß ein IO-Request-Block 
mit Parametern geladen wird. Dann wird ein Device-Task aufgefordert (requested), 
den Job zu erledigen. Exec schiebt die Arbeit also auch nur weiter. Der Ablauf ist also 
immer folgender: 

1. Request-Block initialisieren 

2. Device öffnen 

3. DoIO oder SendIO aufrufen 

4. Device schließen 

Bei DoIO wird der Request an den Device-Task geschickt und dann gewartet, bis das 
Ergebnis vorliegt (Funktionswert O.K., Ergebnis im Puffer). Bei SendIO passiert zuerst 
das gleiche, nur wird dann nicht gewartet. Das Programm läuft weiter und der Task 
dazu parallel. Das Thema möchte ich in diesem Buch nicht mehr vertiefen, weil es nur 
für Spezialfälle von Interesse ist. Für den Normalfall stehen komfortable Funktionen 
und fertige Routinen zur Verfügung. 




Anhang 
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Anhang Al: Befehlsliste des 68000 

Die Befehle sind in einem kompakten Format wie im folgenden Beispiel dargestellt: 


ADD ea,Dn / ADD Dn,ea 
BWL 

Dn An (An) (An)+ -(An) d(An) 
S ; * * WL * * * 

P). * * * 


Addiere 
S+D + D 

d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

* * * * * * 

* * * * 


In der ersten Zeile steht immer der Befehl in den erlaubten Syntax-Formen gefolgt von 
einer kurzen Erklärung. 

Dn ist ein beliebiges Datenregister 
An ist ein beliebiges Adreßregister 
Rn ist ein beliebiges Adreß- oder Datenregister 
S ist der Source-(Quell-) Operand 
D ist der Destination-(Ziel-) Operand 

#K ist eine Konstante 
d ist die Adreßdistanz 

In der zweiten Zeile stehen die erlaubten Operandengrößen (B, W, L). Darunter 
stehen die möglichen Adressierungsarten. Ein »*« heißt, daß alle der vorgenannten 
Operandengrößen auch bei dieser Adressierung erlaubt sind. Ein oder zwei Buchstaben 
beschränken die Adressierungsart auf diese Operandengrößen. 

cc in zum Beispiel DBcc heißt Condition Code. Seine Bedeutung ist auf der letzten 
Seite dieses Anhangs aufgeführt. 


ABCD Dn,Dn / ABCD -(An),-(An) Addiere BCD 

B S + D+X + D 
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ADD ea,Dn / ADD Dn,ea 
B WL 


Addiere 
S + D-*D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 


WL * 


* * * 


ADDA ea,An 
WL 


Addiere Adresse 
S + D + D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
S: * WL * * ** * *** ** 

Wort Operand wird wie bei EXT.L erweitert 


ADDI #K,ea 
B WL 


Addiere Konstante 
#K+D -> D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

He * * He* *** 


ADDQ #K,ea 
B WL 


Addiere Konstante Quick (#K < =8) 
#K+D -> D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

D* * WL He * He * * * * 


ADDX Dn,Dn / ADDX -(An),-(An) 


Addiere mit X-Flag 
S + D+X -> D 


AND ea,Dn / AND Dn,ea 
B WL 


Logisch UND 
SANDD + D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W S.L d(PC) d(PC,Rn)# 

g. * * ** **** ** 

D : ** ** *** 







238 Anhang 


ANDI #K,ea 

B WL 

Logisch UND mit Konstante 
#K AND D -> D 

Dn An (An) (An)+ -(An) d(An) 

D ; * * * * * 

d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

* * * 

ANDI #K,CCR 

B 

Unde zu CCR 
#K AND CCR -► CCR 

ANDI #K,SR 

W 

Unde zu SR ! Privilegiert! 

#K AND SR -> SR 

ASL Dn,Dn / ASL #K,Dn / ASL ea 

B WL 

Arithmetisch links schieben 

D n Bits geschoben -» D 

Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

j-) ; * * ** *** 

0 wird nachgeschoben, herausgeschobenes Bit geht in das C- und X-Flag 

ASR Dn,Dn / ASR #K,Dn / ASR ea 

B WL 

Arithmetisch rechts schieben 

D n Bits geschoben -* D 

Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
D: * * * * * * * 

MS-Bit schiebt, bleibt aber erhalten. Herausgeschobenes Bit geht in das C- und X-Flag 

Bcc Label 
.B W 
.S 

Verzweige, wenn cc (PC-relativ) 
siehe cc-Tabelle 

PC+d^PC 
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BCHG Dn,ea / BCHG #K,ea Bit n testen und ändern 

B L Bit-Test -> Z-Flag 

Bit ändern 

Wenn Source Dn: n = 0..31, sonst 0..7. Wenn Destination im RAM, wird immer 1 Byte 
gelesen und n = n mod 8. 

Dn An (An) (An) + -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 
D: L BB BB BBB 


BCLR Dn,ea / BCLR #K,ea Bit n testen und löschen 

B L Bit-Test -> Z-Flag j 

Bit = 0 / 

Weim Source Dn: n = 0..31, sonst 0..7. Wenn Destination im RAM, wird immer 1 Byte 
gelesen und n = n mod 8. 


Dn An 

(An) 

(An) + 

-(An) 

d(An) 

d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 

D: L 

B 

B 

B 

B 

B B B 

BRA Label 





Verzweige zu Label (PC-relativ) 

.B W 
.S 





PC + d -» PC 


BSET Dn,ea / BSET #K,ea Bit n testen und setzen 

B L Bit-Test -> Z-Flag 

Bit = 1 

Wenn Source Dn: n = 0..31, sonst 0..7. Wenn Destination im RAM, wird immer 1 Byte 
gelesen und n=n mod 8. 

Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 
D: L BB BB BBB 


BSR Label Call Sub bei Label (PC-relativ) 

.BW PC->-(SP);PC+d + PC 

.S 
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BTST Dn,ea / BSET #K,ea Bit n testen 

B L Bit-Test -> Z-Flag 

Wenn Source Dn: n=0..31, sonst 0..7. Wenn Destination im RAM, wird immer 1 Byte 

gelesen und n=n mod 8. 

Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
S: L BB BB BBBB BB 

D: L BB BB BBBB B 


CHK ea,Dn 
W 


Register gegen Limits checken 
if Dn <0 or Dn > (ea) then trap 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
S: W WW WW WWWW WW 


CLR ea 
B WL 


Lösche Operand 
0 + D 


Dn An (An) (An) + -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 

D; * ** ** * * * 


CMP ea,Dn 
BWL 


Vergleiche Operanden 
Flags wie nach D minus S 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
S : * W * * * * * * * * * * 


CMPA ea,An 
WL 


Vergleiche Adressen 
Flags wie nach D minus S 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

Jj. * * * * * * * * * * * * 

Wort-Operand wird vorher auf Long erweitert 
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CMPI #K,ea 
B WL 


Vergleiche gegen Konstante 
Flags wie nach D minus S 


Dn An (An) (An)+ -(An) (An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 
£) ; * * * * * * ** 


CMPM (An) + ,(An) + 
B WL 


Vergleiche Speicherstellen 
Flags wie nach D minus S 


DBcc Dn.Label 


Teste cc. Dekrementiere Dn. Branch 
if cc = false then Dn=Dn-l 
if Dn <>-l then BRA Label 
eise »hier weiter« 


DIVS ea,Dn 
W 


Dividiere Worte Signed 
D/S -> D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 
* * * * * * * * * * * 

Quotient im niederwertigen Wort, Rest im höherwertigen 


DIVU ea,Dn 
W 


Dividiere Worte Unsigned 
D/S ■* D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

g. * * * * * * * * * * * 

Quotient im niederwertigen Wort, Rest im höherwertigen 


EOR Dn,ea 
B WL 


Logisch XOR 
S xor D -> D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

D: * ** * * * ** 
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EORI #K,ea 
B WL 


Logisch XOR mit Konstante 
S xor D -> D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
D: * ** ** * * * 


EORI #K,CCR 
B 


XOR Konstante mit OCR 
S xor CCR ■* CCR 


EORI #K,SR 
W 


XOR Konstante mit SR IPrivileg. ! 
S xor CCR -> CCR 


EXG Rn,Rn 
L 


Tausche Register 
Rn «-> Rn 


EXT Dn 
WL 


Dn vorzeichenrichtig erweitern 


ILLEGAL 


löst Illegal-Exception aus 


JMP ea 


absoluter Sprung (lang) 
D -> PC 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

P). * ****** 


JSR ea 


absoluter UP-Aufruf 
PC+ -(SP);D->PC 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

p> ; * ****** 
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LEA ea,An 
L 


Lade effektive Adresse 
D+An 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
* ****** 


LINK An,#d 


Lokalen Stack einrichten 

An ->• -(SP); SP -* An; S£*d SP 


LINK und UNLK werden gebraucht, um eine »linked list« von lokalen Variablen für 
verschachtelte UP-Aufrufe anzulegen 


LSL Dn,Dn / LSL #K,Dn / LSL ea 
BWL 


Logisch links schieben 
D n Bits geschoben -> D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
D: ** ** *** 

0 wird nachgeschoben, herausgeschobenes Bit geht in das C- und X-Flag 


LSR Dn,Dn / LSR #K,Dn / LSR ea 
BWL 


Logisch rechts schieben 
D n Bits geschoben -> D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 
* * * * * * * 

0 wird nachgeschoben, herausgeschobenes Bit geht in das C- und X-Flag 


MOVE ea,ea 
BWL 


Kopiere Daten 
D->S 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 


S: * WL 


* * * * 


* * 
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MO VE CCR,ea 
W 


CCR holen 
CCR -> ea 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
* * * * * * * * 


MOVE ea,CCR 
W 


CCR laden 
ea -> CCR 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

g. * * * * * * * * * * * 


MOVE ea,SR 
W 


SR laden 
ea ■+ SR 


! Privilegiert! 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
* * * * * * * * * * * 


* * * * 


MOVE SR,ea 
W 


SR holen 
SR -* ea 


! Privilegiert! 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
D: * * * * * * * * 


MOVE USP,An 
L 


USP holen 
USP->An 


Privilegiert! 


MOVEA ea^An 
L 


Kopiere Adresse 
ea-> An 


Dn An (An) (An) + -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 

g. * * * * * * * *** He* 
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MOVEM R_Liste,ea / MOVEM ea,R_Liste Registerliste kopieren 
WL 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 


* * 

* * * 


1= Register -» Speicher z.B.: movem dl-d3/al-a4,-(a7) 
2= Speicher -► Register z.B.: movem (a7) + ,dl-d3/al-a4 



MULS ea,Dn 
W 


Multipliziere Signed 
S*D + D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 

g. * * * * * * * * * * * 


MULU ea,Dn 
W 


Multipliziere Unsigned 
S*D -> D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
* * * * * * * * * * * 


* * * 


NB CD ea 
B 


Negiere BCD-Zahl 
0-D-X ■* D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 

j). * * * * * * * * 
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NEG ea 
B WL 


Negiere Operand 
0-D -» D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 

j). * * * * * * ** 


NEGXea 
B WL 


Negiere Operand mit X-Flag 
0-D-X+D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 
D: * ** ** * ** 


NOP 

tue nichts (dauert vier Clock-Zyklen) 


No Operation 


NOT ea 
B WL 


Logisch Nicht 

-D -* D (Einer-Komplement) 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
£)• * ** * * * ** 


OR ea,Dn/ OR Dn,ea 
B WL 


Logisch ODER 
S or D -* D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 
* * * * * * * * * * * 

r>. * * * * * * * 


ORI #K,ea 
B WL 


Logisch ODER mit Konstante 
#K or D -► D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 
D:* * * ** * ** 








PEA ea 

L 


Push effektive Adresse 
D-> -(SP) 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
* ****** 


RESET 


Rücksetzen ! Privilegiert! 

Reset-Leitung für 124 Clock-Zyklen auf 0 


ROL Dn,Dn / ROL #K,Dn / ROL ea 
B WL 


Rotiere links 
D n Bits rotiert -» D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 
D : * * * * * * * 

MS-Bit geht ins LS-Bit und ins Carry-Flag und schiebt links 


ROR Dn,Dn / ROR #K,Dn / ROR ea Rotiere rechts 
B W L D n Bits rotiert ■+ D 

Dn An (An) (An) + -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 

j). ** ** *** 

LS-Bit geht ins MS-Bit und ins Carry-Flag und schiebt rechts 


ROXL Dn,Dn / ROXL #K,Dn / ROXL ea Rotiere links mit X-Flag 
B W L D n Bits rotiert -> D 

Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
D : * * * * *** 

X geht ins LS-Bit und schiebt links. MS-Bit geht in X und Carry 
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ROXR Dn,Dn / RORL #K,Dn / RORL 
B WL 

ea Rotiere rechts mit X-Flag 

D n Bits rotiert -> D 

Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
D: * * * * * * * 

X geht ins MS-Bit und schiebt rechts. LS-Bit geht in X und Carry 

RTE 

Return von Exception ! Privilegiert! 
(Sp) + •* SR; (SP)+ + PC 

RTR 

Return mit Flags 

(Sp)+ ->CCR;(SP) + -> PC 

RTS 

Return 
(SP) + -> PC 

SB CD Dn,Dn / ABCD -(An),-(An) 

B 

Subtrahiere BCD 

D-S-X -> D 

Scc 

Setze Byte, wenn cc true 
if cc=true $FF -> Byte 
eise $00 -> Byte 

Dn An (An) (An)+ -(An) d(An) 
£).* * * * * 

d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
* * * 

STOP #K 

Lade SR und Halt ! Privilegiert! 

#K -> SR; Halt bis Interrupt 
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SUB ea,Dn / ADD Dn,ea 
B WL 

Dn An (An) (An) + -(An) d(An) 
S:* * WL * * * 

TV * * * * 


Subtrahiere 
D-S + D 

d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 
* * * * * * 

* ' * * 


SUBA ea,An 
WL 


Subtrahiere Adresse 
D-S ■> D 


Dn An (An) (An)+ -(An) d(An) d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
S: * WL * * ** **** ** 

Wortoperand wird wie bei EXT.L erweitert 


SUBI #K,ea 
B WL 

Dn An (An) (An) + -(An) d(An) 


SUBQ #K,ea 
B WL 

Dn An (An) (An) + -(An) d(An) 
D' * WL * * * * 


Subtrahiere Konstante 
D-#K-> D 

d(An,Rn) $.W $.L d(PC) d(PC,Rn) # 
* * * 


Subtrahiere Konstante Quick (#K < =8) 
D-#K+D 

d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
* * * 


SUBX Dn,Dn / ADDX -(An),-(An) Subtrahiere mit X-Flag 

D-S-X -> D 


SWAP Dn 
W 


Tausche Worte in Dn 
Bit 31..16 Bit 15..0 
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TAS ea 

B 


Dn An (An) (An) + -(An) d(An) 


TRAP #n 


TRAPV 


TST ea 
B WL 

Dn An (An) (An)+ -(An) d(An) 

D : * * * * * 


UNLKAn 


Teste und setze Bit 7 im Byte 
Bit 7 -> N/Z-Flag 
1 -> Bit 7 

d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
* * * 


Trap-Exception 
PC - (SSP) 
SR -> -(SSP) 
Vektor n -> PC 


Trap, wenn Overflow 


Teste Operand gegen Null 
Ergebnis in N/Z-Flag 

d(An,Rn) $.W $.L d(PC) d(PC,Rn)# 
* * * 


Unlink 

An -> SP; (SP) + * An 








Anhang Al: Befehlsliste des 68000 251 


Die Bedeutung der Condition Codes 


Kürzel 

Bedeutung 

Deutsch 

CC 

Carry Clear 

Carry = 0 

CS 

Carry Set 

Carry = 1 

EQ 

Equal 

Z =1 

GE 

Greater or Equal 

> = 

*** QJ 

Greater Than 

> 

HI 

Higher 

> 

*** LE 

Less or Equal 

< 

LS 

Less or Same 

< = 

*** 

Less Than 

< 

MI 

Minus 

- 

NE 

Not Equal 

< > 

PL 

Plus 

+ 

*** YC 

oVerflow Clear 

V = 0 

*** y«; 

oVerflow Set 

V =1 


*** Für vorzeichenbehaftete Zahlen 
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Anhang A2: Library Vector Offsets 

In diesem Anhang finden Sie die _LVOs und zwar 

A2.1 Exec-Library 

A2.2 DOS-Library 

A2.3 Intuition-Library 

A2.4 Graphics-Library 

A2.5 Icon-Library 

A2.6 Die drei Mathematik-Libraries 

A2.7 Sonstige (Diskfonts und Translator) 

jeweils alphabetisch sortiert. 

Hinweis: Die Namen der LVOs entsprechen denen der Amiga-Dokumentation. Daran 
halten sich die Assembler von Metacomco und HiSoft. Für den SEKA-Assembler müs¬ 
sen Sie den Unterstrich vor den LVOs und der Basis-Adresse weglassen. Die Basis- 
Adresse für Exec ist eine Konstante, das heißt _SysBase equ 4. 

Für alle anderen Libs ist die Basis eine Variable. Für HiSoft und SEKA ist dafür mit 
dc.l Platz im Programm vorzusehen. Nach dem Öffnen ist dO in diese Variable zu 
kopieren, wenn man die Standard-Makros anwenden will. Bei Metacomco reicht XDEF 
(und Linken mit amiga.lib). 


A 2.1 Exec-Library 

Name zum Öffnen: exec. library (wird nie benötigt) 
Basis-Adresse: _SysBase 


_LV0AbortI0 

equ 

-480 

_LVOAddDevice 

equ 

-432 

_LVOAddHead 

equ 

-240 

_LV0Add IntServer 

equ 

-168 

_LVOAddLlbrary 

equ 

-396 

_LVOAddPort 

equ 

-354 

_LVOAddResource 

equ 

-486 

_LVOAddTail 

equ 

-246 

_LVOAddTask 

equ 

-282 

_LV0Alert 

equ 

-108 

_LVOAllocAbs 

equ 

-204 

_LVOAllocate 

equ 

-186 

_LVOAllocEntry 

equ 

-222 

_LVOAllocMem 

equ 

-198 




LVOAllocTrap 

LVOAvailMem 

LVOCause 

LVOChecklO 

LVOCloseDevice 

LVOCloseLibrary 

LVODeallocate 

LVODebug 

LVODisable 

LVODispatch 

LVODoIO 

LVOEnable 

LVOEnqueue 

LVOException 

LVOExitlntr 

LVOFindName 

LVOFindPort 

LVOFindResident 

LVOFindTask 

LVOForbid 

LVOFreeEntry 

LVOFreeMem 

LVOFreeSignal 

LVOFreeTrap 

LVOGetCC 

LVOGetMsg 

LVOInitCode 

LVOInitResident 

LVOInitStruct 

LVOInsert 

LVOMakeFunctions 

LVOMakeLibrary 

LVOOldOpenLibrary 

EVOOpenDevice 

LVOOpenLibrary 

LVOOpenResource 

LVOPermlt 

LVOProcure 

LVOPutMsg 

LVORavDoFmt 

LVORawIOInit 

LVORawMayGetChar 

LVORauPutChar 

LVORemDevice 

LVORemHead 

LVORemlntServer 

LVORemLibrary 

LVORemove 

LVORemPort 

LVORemResource 

LVORemTail 

LVORemTask 
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equ 

-542 

equ 

-216 

equ 

-180 

equ 

-468 

equ 

-450 

equ 

-414 

equ 

-192 

equ 

-114 

equ 

-120 

equ 

-60 

equ 

-456 

equ 

-126 

equ 

-270 

equ 

-66 

equ 

-56 

equ 

-276 

equ 

-590 

equ 

-96 

equ 

-294 

equ 

-152 

equ 

-228 

equ 

-210 

equ 

-556 

equ 

-548 

equ 

-528 

equ 

-572 

equ 

-72 

equ 

-102 

equ 

-78 

equ 

-254 

equ 

-90 

equ 

-84 

equ 

-408 

equ 

-444 

equ 

-552 

equ 

-498 

equ 

-158 

equ 

-540 

equ 

-566 

equ 

-522 

equ 

-504 

equ 

-510 

equ 

-516 

equ 

-458 

equ 

-258 

equ 

-174 

equ 

-402 

equ 

-252 

equ 

-560 

equ 

-492 

equ 

-264 

equ 

-288 
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_LVOReplyMsg 

equ 

-378 

_LVOReschedule 

equ 

-48 

_LVOSchedule 

equ 

-42 

_LV0SendI0 

equ 

-462 

_LVOSetExcept 

equ 

-312 

_LVOSetFunction 

equ 

-420 

_LVOSetIntVector 

equ 

-162 

_LVOSetSignal 

equ 

-306 

_LV0SetSR 

equ 

-144 

_LVOSetTaskPri 

equ 

-300 

_LVOSignal 

equ 

-324 

_LVOAllocSignal 

equ 

-330 

_LVOSumLibrary 

equ 

-426 

_LVOSuperState 

equ 

-150 

_LVOSupervisor 

equ 

-30 

_LVOSwitch 

equ 

-54 

_LVOTypeOfMem 

equ 

-534 

_LVOUserState 

equ 

-156 

_LVOVacate 

equ 

-546 

_LV0Wait 

equ 

-318 

_LV0UaitI0 

equ 

-474 

_LVOWaitPort 

equ 

-384 


A 2.2 DOS-Library 

Name zum Öffnen: dos. library 
Basis-Adresse: _D0SBase 


_LV0Close 

equ 

-36 

_LVOCreateDir 

equ 

-120 

_LVOCreateProc 

equ 

-138 

_LVOCurrentDir 

equ 

-126 

_LVODateStamp 

equ 

-192 

_LV0Delay 

equ 

-198 

_LVODeleteFile 

equ 

-72 

_LVODeviceProc 

equ 

-174 

_LVODupLock 

equ 

-96 

_LVOExamine 

equ 

-102 

_LVOExecute 

equ 

-222 

_LV0Exit 

equ 

-144 

_LVOExNext 

equ 

-108 

_LVOGetPacket 

equ 

-162 

_LV0Info 

equ 

-114 

_LV0Input 

equ 

-54 

_LV0IoErr 

equ 

-132 

_LV0IsInteractive 

equ 

-216 

_LVOLoadSeg 

equ 

-150 

_LV0Lock 

equ 

-84 

_LV00pen 

equ 

-30 

_LV00utput 

equ 

-60 
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LVOParentDir 

equ 

-210 

LVOQueuePacket 

equ 

-168 

LVORead 

equ 

-42 

LVORename 

equ 

-78 

LVOSeek 

equ 

-66 

LVOSetComment 

equ 

-180 

LVOSetProtection 

equ 

-186 

LVOUnLoadSeg 

equ 

-156 

LVOUnLock 

equ 

-90 

LVOWaitForChar 

equ 

-204 

LVOWrite 

equ 

-48 


A 23 Intuition-Library 

Name zum Öffnen: intuition.library 
Basis-Adresse: intuitionBase 


_LVOAddGadget 

equ 

-42 

_LVOAllocRemember 

equ 

-396 

_LVOAlohaWorkbench 

equ 

-402 

_LVOAutoRequest 

equ 

-348 

_LVOBeginRefresh 

equ 

-354 

_LVOBuildSysRequest 

equ 

-360 

_LVOClearDMRequest 

equ 

-48 

_LVOClearMenuStrip 

equ 

-54 

_LVOClearPointer 

equ 

-60 

_LVOCloseScreen 

equ 

-66 

_LV0C1oseWindow 

equ 

-72 

_LVOCloseWorkBench 

equ 

-78 

_LVOCurrentTime 

equ 

-84 

_LVODisplayAlert 

equ 

-90 

_LVODisplayBeep 

equ 

-96 

_LVODoubleClick 

equ 

-102 

_LVODrawBorder 

equ 

-108 

_LVODrawImage 

equ 

-114 

_LVOEndRefresh 

equ 

-366 

JLVOEndRequest 

equ 

-120 

_LVOFreeRemember 

equ 

-408 

_LVOFreeSysRequest 

equ 

-372 

_LVOGetDefPrefs 

equ 

-126 

_LVOGetPrefs 

equ 

-132 

JLVOInitRequester 

equ 

-138 

_LVOIntuition 

equ 

-36 

_LVOIteioAddress 

equ 

-144 

_LVOLockIBase 

equ 

-414 

_LVOMakeScreen 

equ 

-378 

_LVOModifyIDCMP 

equ 

-150 

_LVOHodifyProp 

equ 

-156 

_LVOMoveScreen 

equ 

-162 

_LVOMoveWindow 

equ 

-168 
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_LVOOffGadget 

equ 

-174 

_LVOOffMenu 

equ 

-180 

_LVOOnGadget 

equ 

-186 

_LV00nMenu 

equ 

-192 

_LV00penIntuition 

equ 

-50 

_LV00penScreen 

equ 

-198 

_LV00penWindow 

equ 

-204 

_LVOOpenWorkBench 

equ 

-210 

_LVOPrintIText 

equ 

-216 

_LVORefreshGadgets 

equ 

-222 

_LVORemakeDisplay 

equ 

-384 

_LVORemoveGadget 

equ 

-228 

_LVOReportMouse 

equ 

-234 

_LVORequest 

equ 

-240 

_LVORethinkDisplay 

equ 

-390 

_LVOScreenToBack 

equ 

-246 

_LVOScreenToFront 

equ 

-252 

_LVOSetDMRequest 

equ 

-258 

_LVOSetMenuStrip 

equ 

-264 

_LVOSetPointer 

equ 

-270 

_LVOSetPrefs 

equ 

-324 

_LVOIntuiTextLength 

equ 

-330 

_LVOSetWindouTitles 

equ 

-276 

_LVOShowTitle 

equ 

-282 

_LVOSizeWindow 

equ 

-288 

_LVOUnlockIBase 

equ 

-420 

_LVOViewAddress 

equ 

-294 

_LVOViewPortAddress 

equ 

-300 

_LVOWBenchToBack 

equ 

-336 

_LVOWBenchToFront 

equ 

-342 

_LVOWindowLimits 

equ 

-318 

_LVOWindouToBack 

equ 

-306 

__LVOWindovToFront 

equ 

-312 


Ä 2.4 Graphics-Library 


Name zum Öffnen: 

graphics. 

. library 

Basis-Adresse: 

_GfxBase 


_LVOAddAnimOb 

equ 

-156 

_LV0AddBob 

equ 

-96 

_LVOAddFont 

equ 

-480 

JLVOAddVSprite 

equ 

-102 

_LVOAllocRaster 

equ 

-492 

_LVOAndRectRegion 

equ 

-504 

_LVOAnimate 

equ 

-162 

_LVOAreaDraw 

equ 

-258 

_LVOAreaEnd 

equ 

-264 

_LVOAreaMove 

equ 

-252 

_LVOAskFont 

equ 

-474 
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_LVOAskSoftStyle 


-84 

_LVOBltBitMap 

equ 

-30 

_LVOBltBitMapRastPort 

equ 

-606 

_LVOBltClear 

equ 

-300 

_LVOBltPattern 

equ 

-312 

_LVOBltTemplate 

equ 

-36 

_LVOCBump 

equ 

-366 

_LVOChangeSprite 


-420 

_LVOClearEOL 


-42 

_LVOClearRegion 


-528 

_LVOClearScreen 

equ 

-48 

_LVOClipBlit 

equ 

-552 

_LVOCloseFont 


-78 

_LVOCMove 

m SB 

-372 

LVOCopySBitMap 


-450 

_LV0CWait 

equ 

-378 

JLVODisovnBlitter 

equ 

-462 

_LVODisposeRegion 

equ 

-534 

_LVODoCollision 


-108 

_LV0Draw 

m »mii 

-246 

_LVODrawGList 


-114 

_LV0Flood 

equ 

-330 

_LVOFreeColorMap 

equ 

-576 

_LVOFreeCopList 

equ 

-546 

_LVOFreeCprList 

equ 

-564 

_LVOFreeGBuffers 

equ 

-600 

_LVOFreeRaster 

equ 

-498 

_LVOFreeSprite 

equ 

-414 

_LVOFreeVPortCopLists 

equ 

-540 

_LVOGelsFuncE 

equ 

-180 

_LVOGelsFuncF 

E 9 

-186 

_LVOGetColorMap 

El 

-570 

_LVOGetGBuffers 

K 

-168 

_LV0GetRGB4 


-582 

_LVOGetSprite 

equ 

-408 

_LVOInitArea 

equ 

-282 

_LVOInitBitHap 

equ 

-390 

_LVOInitGels 


-120 

_LVOInitGMasks 


-174 

_LVOInitHasks 


-126 

_LVOInitRastPort 

equ 

-198 

_LVOInitTmpRas 

equ 

-468 

_LVOInitViev 

equ 

-360 

_LVOInitVPort 

equ 

-204 

_LV0LoadRGB4 

equ 

-192 

_LVOLoadViev 

equ 

-222 

_LVOLockLayerRom 

equ 

-432 

_LVOMakeVPort 

equ 

-216 

_LV0Move 

equ 

-240 

_LVOMoveSprite 

equ 

-426 

_LVOMrgCop 

equ 

-210 

_LVONewRegion 

equ 

-516 
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_LVONotRegion 

equ 

-522 

_LVOOpenFont 

equ 

-72 

_LV00rRectRegion 

equ 

-510 

_LV00unBlitter 

equ 

-456 

_LVOPolyDraw 

equ 

-356 

_LV0QBlit 

equ 

-276 

_LVOQBSBlit 

equ 

-294 

_LVOReadPixel 

equ 

-318 

_LVORectFill 

equ 

-306 

_LVORemFont 

equ 

-486 

_LVORemIBob 

equ 

-132 

_LVORemVSprite 

equ 

-138 

_LVOScrollRaster 

equ 

-396 

_LVOScrollVPort 

equ 

-588 

_LVOSetAPen 

equ 

-342 

_LVOSetBPen 

equ 

-348 

_LVOSetColXision 

equ 

-144 

_LVOSetDrMd 

equ 

-354 

_LVOSetFont 

equ 

-66 

_LVOSetRast 

equ 

-234 

_LV0SetRGB4 

equ 

-288 

_LVOSetSoftStyle 

equ 

-90 

_LVOSortGList 

equ 

-150 

_LVOSyncSBitMap 

equ 

-444 

_LV0Text 

equ 

-60 

^LVOTextLength 

equ 

-54 

_LVOUCopperListInit 

equ 

-594 

_LVOUnlockLayerRom 

equ 

-438 

_LVOVBeamPos 

equ 

-384 

_LVOWaitBlit 

equ 

-228 

_LV0WaitB0VP 

equ 

-402 

_LVOHaitTOF 

equ 

-270 

_LVOWritePixel 

equ 

-324 

_LV0XorReetRegion 

equ 

-558 


A 2.5 Icon-Library 


Name zum Öffnen: 

icon.library 


Basis-Adresse: 

_IconBase 


_LVOAddFreeList 

equ 

-72 

_LVOAllocWBObject 

equ 

-66 

_LVOBumpReVision 

equ 

-108 

_LVOFindToolType 

equ 

-96 

_LVOFreeDiskObject 

equ 

-90 

_LVOFreeFreeList 

equ 

-54 

_LV0FreeWB0bj ect 

equ 

-60 

_LVOGetDiskObject 

equ 

-78 

_LVOGetIcon 

equ 

-42 

_LVOGetWBObject 

equ 

-30 
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_LVOMatchToolValue 

equ 

-102 

_LVOPutDiskObject 

equ 

-84 

_LVOPutIcon 

equ 

-48 

_LVOPutWBObj ect 

equ 

-36 


A 2.6 Die Mathematik-Libraries 

Name zum Öffnen: 

mathffp. 

library 

Basis-Adresse: 

_MathBase 

_LVOSPAbs 

equ 

-54 

_LVOSPAdd 

equ 

-66 

_LVOSPCmp 

equ 

-42 

_LVOSPDiv 

equ 

-84 

_LVOSPFix 

equ 

-30 

_LVOSPFlt 

equ 

-36 

_LVOSPMul 

equ 

-78 

_LVOSPNeg 

equ 

-60 

_LVOSPSub 

equ 

-72 

_LVOSPTst 

equ 

-48 


Name zum Öffnen: 

mathieeedoubbas.library 

Basis-Adresse: 

_MathIeeeDoub8asBase 

_LVOIEEEDPAbs 

equ 

-54 

_LVOIEEEDPAdd 

equ 

-66 

_LVOIEEEDPCmp 

equ 

-42 

_LVOIEEEDPDiv 

equ 

-84 

_LVOIEEEDPFix 

equ 

-30 

_LVOIEEEDPFlt 

equ 

-36 

_LVOIEEEDPMul 

equ 

-78 

_LVOIEEEDPNeg 

equ 

-60 

_LVOIEEEDPSub 

equ 

-72 

_LVOIEEEDPTst 

equ 

-48 


Name zum Öffnen: 

mathtrans. 

, library 

Basis-Adresse: 

_MathTransBase 

_LV0SPAcos 

equ 

-120 

_LVOSPAsin 

equ 

-114 

_LVOSPAtan 

equ 

-30 

_LVOSPCos 

equ 

-42 

_LVOSPCosh 

equ 

-66 

_LV0SPExp 

equ 

-78 

_LVOSPFieee 

equ 

-108 

_LV0SPLog 

equ 

-84 
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LVOSPLogia 

LVOSPPov 

LVOSPSin 

LVOSPSincos 

LVOSPSinh 

LVOSPSqrt 

LVOSPTan 

LVOSPTanh 

LVOSPTieee 


equ 

-126 

equ 

-90 

equ 

-56 

equ 

-54 

equ 

-60 

equ 

-96 

equ 

-48 

equ 

-72 

equ 

-102 


A 2.7 Sonstige (Diskfonts und Translator) 
Diskfont-Library 

Name zum Öffnen: diskfont. Xibrary 
Basis-Adresse: DiskfontBase 

_LV0AvailFonts equ -56 

_LV00penDiskFont equ -50 


Translator-Library 

Name zum Öffnen: translator.library 
Basis-Adresse: TranslatorBase 


LVOTranslate 


equ 


-50 
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Anhang A3: 

A3.1 Exec 

A3.2 DOS 

A3.3 Intuition 
A3.4 Graphics 
A3.5 Layers 

A 3.1 Exec 

Die wichtigsten Funktionen und ihre Parameter 

AO Al A2 A3 DO Dl 

AbortIO 


IORequest 



AddDevice 


Device 



AddHead 

List 

Node 



AddlntServer 


Interrupt 


IntNumber 

AddLibrary 


Library 



AddPort 


Port 



AddResource 


Resource 



AddTail 


List Node 



AddTask 


Task initPC 

finalPC 


AllocAbs 


locatlOn 


Size 

Allocate 

freeList 



Size 

AllocEntry 

Entry 




AllocMem 




Size Request 

AllocSignal 




SignalNum 

AllocTrap 




TrapNum 

AvailMem 




Request 

Cause 


Interrupt 



ChecklO 


IORequest 



CloseDevice 


IORequest 



CloseLibrary 


Library 



Deallocate 


freeList memoryBlock 

Size 

Disable 





DoIO 


IORequest 



Enable 





Enqueue 

List 

Node 



FindName 

List 

name 



FindPort 


name 
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AO 

Al A2 

A3 

DO Dl 

FindTask 


name 



Forbid 





FreeEntry 

Entry 




FreeMem 


MemoryBlock 


Size 

FreeSignal 




SignalNum 

FreeTrap 




TrapNum 

GetMsg 

Port 




Insert 

List 

Node pred 



OldOpenLibrary 


LibName 



OpenDevice 

devName 

IORequest 


unit Flags 

OpenResource 

resName 



Version 

Permit 





PutMsg 

Port 

message 



RemDevice 


Device 



RemHead 

List 




RemlntServer 


Interrupt 


IntNumber 

RemLibrary 


Library 



Remove 


Node 



RemPort 


Port 



RemResource 


Resource 



RemTail 

List 




RemTask 


Task 



ReplyMsg 


Message 



SendIO 


IORequest 



SetExcept 




NewSig SignalSet 

SetlntVector 


Interrupt 


IntNum Interrupt 

SetSignal 




NewSig SignalSet 

SetSR 




NewSR Mask 

SetTaskPri 


Task 


Priority 

Signal 


Task 


SignalSet 

SumLibrary 


Library 



SuperState 





UserState 




SysStack 

Wait 




SignalSet 

WaitIO 


IORequest 



WaitPort 

Port 
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A3.2 DOS 

Funktion/Reg. 

Dl 

D2 

D3 

Close 

File 



CreateDir 

Name 



CreateProc 

Name 

Prior. 

SegList 

CurrentDir 

Lock 



DateStamp 

Date 



Delay 

Timeout 



DeleteFil 

Name 



DeviceProc 

Name 



DupLock 

Lock 



Examine 

Lock 

FilelnfoBLock 


Execute 

String 

File 

File 

Exit 

ReturnCode 



ExNext 

Lock 

FilelnfoBLock 


Info 

Lock 

ParameterBLock 

Input 




IoErr 




Islnteractive 

File 



LoadSeg 

FileName 



Lock 

Name 

Type 


Open 

Name 

AccessMode 


Output 




ParentDir 

Lock 



Read 

File 

Buffer 

Len 

ReName 

OldName 

NewName 


Seek 

File 

Position 

Offset 

SetComment 

Name 

Comment 


SetProtection 

Name 

Mask 


UnLoadSeg 

Segment 



UnLock 

Lock 



WaitForChar 

File 

Timeout 


Write 

File 

Buffer 

Len 

A 33 Intuition 




AddGadget 

AddPtr/Gadget/Position A0/A1/D0 

AllocRemember 

RememberKey/Sizef/Flags A0/D0/D1 

AlohaW orkbench 

wbport AO 



AutoRequest 

Window/Body/PT ext/NT ext /PFlag/NFla 


AO /Al 

/A2 /A3 /DO 

/Dl 

BeginRefresh 

Window AO 




/D2/D3 


D4 


StackSize 
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BuildSysRequest 

ClearDMRequest 

ClearMenuStrip 

ClearPointer 

CloseScreen 

CloseWindow 

CloseWorkBench 

CurrentTime 

DisplayAlert 

DisplayBeep 

Doubleclick 

DrawBorder 

Drawlmage 

EndRefresh 

EndRequest 

FreeRemember 

FreeSysRequest 

GetDefPrefs 

GetPrefs 

InitRequester 

IntuiTextLength 

Intuition 

ItemAddress 

MakeScreen 

ModifylDCMP 

ModifyProp 

MoveScreen 

MoveWindow 

OffGadget 

OffMenu 

OnGadget 

OnMenu 

Openlntuition 

OpenScreen 

OpenWindow 

OpenWorkBench 

PrintIText 

RefreshGadgets 

RemakeDisplay 

RemoveGadget 

ReportMouse 


Window/Body/PosT ext /NegT ext/Flags/W/H 

AO /Al /A2 /A3 /DO /D1/D2 

Window AO 

Window AO 

Window AO 

Screen AO 

Window AO 

Seconds/Micros A0/A1 
AlertNumber/String/Height DO/AO/D1 
Screen AO 

sseconds/smicros/cseconds/cmicros DO/D1 /D2/D3 
RPort/Border/LeftOffset/TopOffset A0/A1/D0/D1 
RPort/Image/LeftOffset/TopOffset A0/A1 /DO/D 1 
Window/Complete AO/DO 
requester/Window A0/A1 
RememberKey/ReallyForget AO/DO 
Window AO 

Preferences/Size AO/DO 
Preferences/Size AO/DO 
req AO 
itext AO 
ievent AO 

MenuStrip/MenuNumber AO/DO 
Screen AO 

Window/Flags AO/DO 

Gadget/Ptr/Req/Flags/HPos/VPos/HBody/VBody 
AO /A1/A2/D0 /Dl /D2 /D3 /D4 

Screen/dx/dy A0/D0/D1 
Window/dx/dy A0/D0/D1 
Gadget/Ptr/Req A0/A1/A2 
Window/MenuNumber AO/DO 
Gadget/Ptr/Req A0/A1/A2 
Window/MenuNumber AO/DO 

OSargs AO 
OWargs AO 

rp/itext/left/top A0/A1/D0/D1 
Gadgets/Ptr/Req A0/A1/A2 

RemPtr/Gadget A0/A1 
Window/Boolean AO/DO 




Request 

RethinkDisplay 

ScreenToBack 

ScreenToFront 

SetDMRequest 

SetMenuStrip 

SetPointer 

SetPrefs 

SetWindowTitles 

ShowTitle 

SizeWindow 

ViewAddress 

ViewPortAddress 

WBenchToBack 

WBenchT oFront 

WindowLimits 

WindowToBack 
WindowT oFront 


A 3.4 Graphics 

AddAnimOb 

AddBob 

AddFont 

AddVSprite 

AllocRaster 

AndRectRegion 

Animate 

AreaDraw 

AreaEnd 

AreaMove 

AskFont 

AskSoftStyle 

BltBitMap 


BltBitMapRastPort 
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Requester/Window A0/A1 

Screen AO 
Screen AO 
Window/req A0/A1 
Window/Menu A0/A1 

Window/Pointer/Height/Width/Xoffset/Y offset 
AO /Al /DO /Dl /D2 /D3 

Preferences/Size/flag A0/D0/D1 
Window/Windowtitle/Screentitle A0/A1/A2 
Screen/Showlt AO/DO 
Window/dx/dy A0/D0/D1 

Window AO 


Window/ minwidth/minheight / maxwidth/maxheight 
AO /DO /Dl /D2 /D3 

Window AO 
Window AO 


obj /animationKey/rastPort A0/A1 /A2 
bob/rastPort A0/A1 
textFont Al 
vSprite/rastPort A0/A1 
width/height D0/D1 
rgn/rect A0/A1 
animationKey/rastPort A0/A1 
rastPort/x/y A1/D0/D1 
rastPort Al 

rastPort/x/y A1/D0/D1 
rastPort/textAttr A1/A0 
rastPort Al 

srcBitMap/srcX/srcY / destBitMap/destX/destY 
AO /DO /Dl /Al /D2 /D3 

sizeX/sizeY/minterm/mask/tempA 
D4 /D5 /D6 /D7 /A2 

srcbm/srcx/ srcy/destrp/destX/destY 
AO /DO /Dl/Al /D2 /D3 

sizeX / size Y / minterm 
D4 /D5 /D6 
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BltClear 

memory/size/flags A1/D0/D1 

BltPattern 

rastPort/ras/xl/yl/maxX/maxY/fillBytes 

Al /AO /D0/D1/D2/D3 /D4 

BltTemplate 

src/srcX/srcMod/destRastPort/destX/destY / sizeX/sizeY 
AO/DO /Dl /Al /D2 /D3 /D4 /D5 

CBump 

copperList Al 

ChangeSprite 

vp/simplesprite/data A0/A1/A2 

ClearEOL 

rastPort Al 

ClearRegion 

rgn AO 

ClearScreen 

rastPort Al 

ClipBlit 

src/ srcX/srcY / destrp/destX/destY / sizeX/sizeY/minterm 
AO/DO/Dl /Al /D2 /D3 /D4 /D5 /D6 

CloseFont 

textFont Al 

CMove 

copperList/destination/data A1/D0/D1 

CopySBitMap 

11/12 A0/A1 

CWait 

DisownBlitter 

copperList/x/y A1/D0/D1 

DisposeRegion 

rgn AO 

DoCollision 

rasPort Al 

Draw 

rastPort/x/y A1/D0/D1 

DrawGList 

rastPort/viewPort A1/A0 

Flood 

rastPort/mode/x/y A1/D2/D0/D1 

FreeColorMap 

colormap AO 

FreeCopList 

coplist AO 

FreeCprList 

cprlist AO 

FreeGBuffers 

animationObj/rastPort/doubleBuffer A0/A1/D0 

FreeRaster 

planeptr/width/height A0/D0/D1 

FreeSprite 

num DO 

FreeVPortCopLists 

GelsFuncE 

GelsFuncF 

viewport AO 

GetColorMap 

entries DO 

GetGBuffers 

animationObj/rastPort/doubleBuffer AO/Al/DO 

GetRGB4 

colormap/entry AO/DO 

GetSprite 

simplesprite/num AO/DO 

InitArea 

arealnfo/vectorTable/vectorTableSize A0/A1/D0 

InitBitMap 

bitMap/depth/width/height A0/D0/D1/D2 

InitGels 

dummyHead/dummyTail/Geisinfo AO/Al/A2 

InitGMasks 

animationObj AO 

InitMasks 

vSprite AO 

InitRastPort 

rastPort Al 

InitTmpRas 

tmpras/buff/size A0/A1/D0 

InitView 

view Al 
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InitVPort 

viewPort AO 

LoadRGB4 

viewPort/colors/count A0/A1/D0 

LoadView 

view Al 

LockLayerRom 

layer A5 

MakeVPort 

view/viewPort A0/A1 

Move 

rastPort/x/y A1/D0/D1 

MoveSprite 

viewport/simplesprite/x/y AO/Al/DO/D1 

MrgCop 

NewRegion 

view Al 

NotRegion 

rgn AO 

OpenFont 

textAttr AO 

OrRectRegion 

OwnBlitter 

rgn/rect A0/A1 

PolyDraw 

rastPort/count/polyTable A1/D0/A0 

QBlit 

blit Al 

QBSBlit 

blit Al 

ReadPixel 

rastPort/x/y A1/D0/D1 

RectFill 

rastPort/xl/yl/xu/yu A1/D0/D1/D2/D3 

RemFont 

textFont Al 

RemIBob 

bob/rastPort/viewPort A0/A1/A2 

RemVSprite 

vSprite AO 

ScroüRaster 

rastPort/dX/ dY/mmx/miny/maxx/maxy 
Al /D0/D1/D2 /D3 /D4 /D5 

ScrollVPort 

vp AO 

SetAPen 

rastPort/pen AI/DO 

SetBPen 

rastPort/pen AI/DO 

SetCollision 

type/routine/gelslnfo D0/A0/A1 

SetDrMd 

rastPort/drawMode AI/DO 

SetFont 

RastPortlD/textFont A1/A0 

SetRast 

rastPort/color AI/DO 

SetRGB4 

viewPort/index/r/g/b A0/D0/D1/D2/D3 

SetSoftStyle 

rastPort/style/enable A1/D0/D1 

SortGList 

rastPort Al 

SyncSBitMap 

1 AO 

Text 

RastPort/string/count A1/A0/D0 

TextLength 

RastPort/string/count A1/A0/D0 

UCopperListlnit 

copperlist/num AO/DO 

UnlockLayerRom 

VBeamPos 

WaitBlit 

layer A5 

WaitBOVP 

WaitTOF 

viewport AO 
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WritePixel rastPort/x/y A1/D0/D1 

XorRectRegion rgn/rect A0/A1 


A 3.5 Layers (li steht für layer info) 

BeginUpdate 

Layer AO 

BehindLayer 

li/Layer A0/A1 

CreateB ehindLayer 

li/bm/xO/yO/ xl /yl/flags /bm2 
A0/A1/D0/D1/D2/D3/D4/A2 

CreateUpfrontLayer 

li/bm/xO/yO /xl/yl/flags/bm2 
A0/A1/D0/D1/D2/D3/D4/A2 

DeleteLayer 

li/Layer A0/A1 

DisposeLayerlnfo 

li AO 

EndUpdate 

Layer/flag AO/DO 

FattenLayerlnfo 

li AO 

InitLayers 

li AO 

LockLayer 

li/Layer A0/A1 

LockLayerlnfo 

li AO 

LockLayers 

li AO 

MoveLayer 

li/Layer/dx/dy A0/A1/D0/D1 

MoveLayerlnFrontOf 

NewLayerlnfo 

Layer/Layer A0/A1 

ScrollLayer 

li/Layer/dx/dy A0/A1/D0/D1 

SizeLayer 

SwapBitsRastPortClip- 

li/Layer/dx/dy A0/A1/D0/D1 

Rect 

rp/cr A0/A1 

ThinLayerlnfo 

li AO 

UnlockLayer 

Layer AO 

UnlockLayerlnfo 

li AO 

UnlockLayers 

li AO 

UpfrontLayer 

li/Layer A0/A1 

WhichLayer 

li/x/y A0/D0/D1 
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Anhang A4: Datentypen, Strukturen, Offset-Tabellen, 
Konstanten 

A4.1 Exec 
A4.2 DOS 
A4.3 Intuition 
A4.4 Graphics 
A4.5 Devices 

Dieser Anhang ist so aufgebaut, daß Sie Teile davon (oder alles) einfach zu Include- 
Files umbauen können. Da ich Sie nicht zwingen wollte, immer die DC-Lösung oder 
die Offset-Lösung zu verwenden, wenn ich die eine oder die andere für richtig halte, 
folgender Kompromiß: Alle Strukturen sind mit DS.x aufgebaut. In der ersten Spalte 
steht jedoch das Offset. Die letzte Zeile gibt die Größe mittels einer EQU-Direktive 
an. 


Die Offsets in der ersten Spalte sind immer in hex notiert. Für die Operatoren gilt hex 
nur wie üblich ($ vor der Zahl). Diese Zeile ist ein Beispiel: 

1A nv_Title ds.l 1 

Daraus können Sie machen: 


dc.l Mein Titel 


oder (xx_SIZE ist immer als EQU definiert): 


NewWindov ds.b 
nw_Title equ 
lea 

move.l 


nw_SIZE 

$1A 

NewWindow,a0 
/Mein_Titel,nw_Title(a0) 


Die zu einer Struktur gehörenden Konstanten folgen dieser meistens direkt in Form 
von EQU-Direktiven. Benutzen zwei Strukturen dieselben Konstanten, stehen sie zwi¬ 
schen den Strukturen. Gegebenenfalls stehen Konstanten auch in anderen Anhängen. 

Einzelheiten zum Umgang mit den Strukturen und Offset-Tabellen finden Sie im 
Kapitel 11. Der Hochpfeil ( A ) heißt »Zeiger auf« (Adresse von). 




270 Anhang 


A 4.1 Exec 

;nodes 


000 

LN_SUCC 

ds.l 

1 

004 

LN_PRED 

ds.l 

1 

008 

LN_TYPE 

ds .b 

1 

009 

LN_PRI 

ds.b 

1 

00A 

LN_NAME 

ds. 1 

1 


LN_SIZE 

equ 

$00E 

NTJJNKNOWN 

equ 

0 


NT_TASK equ 

1 



NT_INTERRUPT 

equ 

2 


NT_DEVICE 

equ 

3 


NT_MSGPORT 

equ 

4 


NT_MESSAGE 

equ 

5 


NT_FREEMSG 

equ 

6 


NT_REPLYMSG 

equ 

7 


NT_RESOURCE 

equ 

8 


NT_LIBRARY 

equ 

9 


NT_MEM0RY 

equ 

10 


NT_SOFTINT 

equ 

11 


NT_F0NT 

equ 

12 


NT_PROCESS 

equ 

13 


NT_SEMAPHORE 

equ 

14 



;Sys-Basis 

zählt ab hier 



1 

;lists 

» 




000 

LH HEAD 

ds. 1 

i 

004 

LH TAIL 

ds.l 

i 

008 

LH TAILPRED 

ds. 1 

i 

00C 

LH TYPE 

ds.b 

i 

00D 

LH pad 

ds.b 

i 


LH_SIZE 

equ 

$00E 


; Message-Port-Struktur 


00E 

MP_FLAGS 

ds.b 

1 

;Flags 

00F 

MP SIGBIT 

ds.b 

1 

;Signal-Bit-Nummer 

010 

MP_SIGTASK 

ds.l 

1 

;"Task für den Sig 

014 

MP_MSGLIST 

ds.b 

LH_SIZE 

;Message-Liste 


MP_SIZE 

equ 

$022 


;Message-Struktur 




00E 

MN_REPLYPORT 

ds.l 

1 

;"Reply-Port 

012 

MN_LENGTH 

ds .w 

1 

;Len in Bytes 
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014 

MN_SIZE 


equ 

MP_SOFTINT 

equ 

MP_ 

SIGTASK 

PF_ACTI0N 

equ 

3 ’ 


PA_SIGNAL 

equ 

0 


PA_SOFTINT 

equ 

1 


PA_IGN0RE 

equ 

2 



;Libraries 


LIB_VECTSIZE equ 6 

LIB_RESERVED equ 4 

LIB_BASE equ $FFFFFFFA 

LIB_USERDEF equ LIB_BASE-(LIB_RESERVED*LIB_VECTSIZE) 

LIB_NONSTD equ LIB_USERDEF 

00E LIB_FLAGS ds.b 1 

00F LIB_pad ds.b 1 

010 LIB_NEGSIZE ds.u 1 

012 LIB_POSSIZE ds.u 1 

014 LIB_VERSION ds.u 1 

016 LIB_REVISION ds.u 1 

018 LIB_IDSTRING ds.l 1 

01C LIB_SUM ds.l 1 

020 LIB_OPENCNT ds.u 1 

LIB_SIZE equ $022 


LIBB_SUMMING 

equ 

0 

;Checksumme uird gerechnet 

LIBF_SUMMING 

equ 

1 

1 

LIBB_CHANGED 

equ 

1 

;Lib uurde geändert 

LIBF_CHANGED 

equ 

2 

i 

LIBB_SUMUSED 

equ 

2 

;1 uenn Checksum-Problem 

LIBF_SUMUSED 

equ 

4 


LIBB_DELEXP 

equ 

3 


LIBF DELEXP 

equ 

8 



;Semaphore Message Port 

022 SM_BIDS ds.u 1 ;Anzahl Lock-Bits 

SM_SIZE equ $024 


iUnions 


riags siene unien 

Anzahl Bytes vor Lib 
nach Lib 
(Haupt)Version 
Untergruppe Version 
"Name 
Checksum 
Aktuelle Opens 


SMJ.OCKMSG equ MP_SIGTASK ;siehe dort 

;Device-Struktur 

I 

; ************ m e Library mit DD_xxxx ********** 
DD_SIZE equ $22 
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022 

UNIT FLAGS 

ds. b 

1 

023 

UNIT_pad 

ds. b 

1 

024 

UNIT OPENCNT ds.w 

1 


UNIT_SIZE 

equ 

$022 

UNITB_ACTIVE equ 

0 


;INTERRUPTS 

00E 

IS DATA 

ds.l 

1 

012 

IS CODE 

ds. 1 

1 


IS_SIZE 

equ 

$016 

000 

IV DATA 

ds.l 

1 

004 

IV CODE 

ds. 1 

1 

008 

IV NODE 

ds. 1 

1 


IV_SIZE 

equ 

$00C 

SB_SAR 

equ 

15 


SF_SAR 

equ 

$8000 


SB_TQE 

equ 

14 


SF TQE 

equ 

$4000 


SB_SINT 

equ 

13 


SF_SINT 

equ 

$2000 


SH_PAD 

equ 

SH_SIZE 


SIH PRIMASK 

equ 

$0F0 


SIH_QUEUES 

equ 

5 



Statische System-Variable 


022 

SoftVer 

ds.w 

1 


Kickstart-Version 

024 

LovMemChkSum 

ds.w 

1 


Checksumme Trap-Vekt. 

026 

ChkBase 

ds.l 

1 


Sys-Basis (Komplement) 

02A 

ColdCapture 

ds.l 

1 


"Cold-Start 

02E 

CoolCapture 

ds.l 

1 


"Cool-Start 

032 

UarmCapture 

ds.l 

1 


"Harm-Start 

036 

SysStkUpper 

ds.l 

1 


"Sys-Stack (oben) 

03A 

SysStkLower 

ds.l 

1 


"Sys-Stack (Top) 

03E 

MaxLocMem 

ds.l 

1 


"akt. max. Memory 

042 

DebugEntry 

ds.l 

1 


"Debugger 

046 

DebugData 

ds.l 

1 


"Debugger Data-Segment 

04A 

AlertData 

ds.l 

1 


"Alerts Data 

04E 

RsvdExt 

ds.l 

1 


reserviert 

052 

ChkSum 

ds.w 

1 


Checksumme bis hierher 

; Für 
054 

Interrupt-Quellen: 

IntVects 

equ 

$054 


054 

IVTBE 

ds ,b 

IV. 

SIZE 

060 

IVDSKBLK 

ds.b 

iv" 

’SIZE 
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06C 

IVSOFTINT 

ds.b 

IV 

SIZE 

078 

IVPORTS 

ds. b 

IV 

’SIZE 

084 

IVCOPER 

ds. b 

IV. 

"SIZE 

090 

IVVERTB 

ds. b 

IV. 

.SIZE 

09C 

IVBLIT 

ds.b 

IV 

:SIZE 

0A8 

IVAUD0 

ds.b 

IV. 

SIZE 

0B4 

I VAUD 1 

ds.b 

IV. 

SIZE 

0C0 

IVAUD2 

ds.b 

iv[ 

’SIZE 

0CC 

IVAUD3 

ds.b 

iv" 

SIZE 

0D8 

IVRBF 

ds.b 

IV 

SIZE 

0E4 

IVDSKSYNC 

ds.b 

IV 

"SIZE 

0F0 

IVEXTER 

ds. b 

IV 

’SIZE 

0FC 

IVINTEN 

ds. b 

IV. 

SIZE 

108 

IVNMI 

ds.b 

iv’ 

"SIZE 

;Dynamische 

System-Variable 





114 

ThisTask 

ds.l 

1 


"aktueller Task 

118 

IdleCount 

ds.l 

1 


Warte-Zähler 

11C 

DispCount 

ds.l 

1 


Dispatch-Zähler 

120 

Quantum 

ds .v 

1 


Zeit-Quantum 

122 

Elapsed 

ds .v 

1 


davon verbraucht 

124 

SysFlags 

ds .v 

1 


diverse 

126 

IDNestCnt 

ds.b 

1 


Inter.-Disable-Tiefe 

127 

TDNestCnt 

ds.b 

1 


Task-Disable-Tiefe 

128 

AttnFlags 

ds .v 

1 


Merker-Flags 

12A 

AttnResched 

ds .v 

1 



12C 

ResModules 

ds.l 

1 


"residente Module 

130 

TaskTrapCode 

ds.l 

1 


"Default Trap-Routine 

134 

TaskExceptCode 

ds.l 

1 


"Dfault Exception-Rout 

138 

TaskExitCode 

ds.l 

1 


"Default Exit-Routine 

13C 

TaskSigAlloc 

ds.l 

1 


Default Signal-Maske 

140 

TaskTrapAlloc 

ds .v 

1 


Default Trap-Maske 

;List Headers 





142 

MemList 

ds.b 

LH. 

SIZE 

150 

ResourceList 

ds.b 

lh" 

SIZE 

15E 

DeviceList 

ds.b 

LH~ 

’SIZE 

16C 

IntrList 

ds. b 

LH. 

SIZE 

17A 

LibList 

ds.b 

LH. 

SIZE 

188 

PortList 

ds. b 

LH. 

SIZE 

196 

TaskReady 

ds. b 

lh" 

’SIZE 

1 A4 

TaskWait 

ds. b 

LH. 

SIZE 

1B2 

Softlnts 

ds. b 

5*SH_ 

SIZE 

202 

LastAlert 

ds.b 

16 



212 

ExecBaseReserved 

ds.l 

1 



SYSBASESIZE 

equ $216 




;attention 

flags: 





AFB_680 0 

equ 0 

1 

(auch 

68020) 

AFB_68020 

equ 1 





AFB_68881 

equ 4 











274 Anhang 


AFB_PAL 

equ 

8 

;PAL/NTSC 

AFB_50HZ 

equ 

9 

;Clock-Rate 

UNITF_ACTIVE 

equ 

1 


UNITB_INTASK 

equ 

1 


UNITF_INTASK 

equ 

2 



;memory 


00E 

ML_NUMENTRIES 

ds.v 

000 

ML_ME 

ML_SIZE 

ME_REQS 


equ 

equ 

ds .w 

000 

ME_ADDR 


ds.l 

004 

ME_LENGTH 


ds.l 

MEHB_PUBLIC 

ME_SIZE 

equ 

0 

equ 

MEMF_PUBLIC 

equ 

1 


MEMB_CHIP 

equ 

1 


MEMF_CHIP 

equ 

2 


MEMB_FAST 

equ 

2 


MEMF_FAST 

equ 

4 


MEMB_CLEAR 

equ 

16 


MEMF_CLEAR 

equ 

$10000 

MEMB_LARGEST equ 

17 


M£MF_LARGEST equ 

$20000 


MEM_BLOCKSIZE equ 8 

MEM_BLOCKMASK equ (ME«_BL0CKSIZE-1) 


00E 

MH_ATTRIBUTES 

ds .v 

1 

010 

MH_FIRST 

ds.l 

1 

014 

MH_L0WER 

ds.l 

1 

018 

MHJJPPER 

ds.l 

1 

01C 

MH_FREE 

ds.l 

1 


MH_SIZE 

equ 

$020 

000 

MC NEXT 

ds.l 

1 

004 

MC_BYTES 

ds.l 

1 

008 

MC_SIZE 

ds. 1 

1 

;Task 

Control-Struktur 




TC_FLAGS 
TC_STATE 
TC IDNESTCNT 


00E 

00F 

010 


ds.b 
ds. b 
ds.b 


1 ;Flags 
1 ;Status 

1 ;Interr. Disable-Tiefe 
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011 

TC_TDNESTCNT 

ds. b 

1 

Task-Di sable-Tiefe 

012 

TC_SIGALLOC 

ds.l 

1 

zugewiesene Signals 

016 

TC_SIGWAIT 

ds.l 

1 

auf die gewartet wird 

01A 

TC_SIGRECVD 

ds.l 

1 

die da sind 

01E 

TC_SIGEXCEPT 

ds.l 

1 

die als Exception gelten 

022 

TC_TRAPALLOC 

ds .v 

r 

zugewiesene Traps 

024 

TC_TRAPABLE 

ds.w 

1 

Traps enabled 

026 

TC_EXCEPTDATA 

ds.l 

1 

"Exception-Daten 

02A 

TC_EXCEPTCODE 

ds. 1 

1 

"Exception-Code 

02E 

TC_TRAPDATA 

ds.l 

1 

“Trap-Data 

032 

TC_TRAPCODE 

ds. 1 

1 

"Trap-Code 

036 

TC_SPREG 

ds.l 

1 

Stack Pointer 

03A 

TC_SPLOWER 

ds.l 

1 

"Stackframe unten 

03E 

TC_SPUPPER 

ds.l 

1 

" oben (+2) 

042 

TC_SWITCH 

ds.l 

1 

"Task, der CPU verliert 

046 

TC_LAUNCH 

ds.l 

1 

“Task, der dann kommt 

04A 

TC_MEMENTRY 

ds .b 

LH_SIZE ;Speicherbelegung 

058 

TC_Userdata 

ds.l 

1 

“User-Daten 


TC_SIZE 

equ 

$05C 



TB_PROCTIME equ 0 

TF_PROCTIME equ 1 

TB_STACKCHK equ 4 

TF_STACKCHK equ 16 

TB_EXCEPT equ 5 

TF_EXCEPT equ 32 

TB_SWITCH equ 6 

TF_SUITCH equ 64 

TB_LAUNCH equ 7 

TF_LAUNCH equ 128 

TS_INVALID equ 0 

TS_ADDED equ TS_INVALID+1 

TS_RUN equ TS_ADDED+1 

TS_READY equ TS_RUN+1 

TS_WAIT equ TS_READY+1 

TS_EXCEPT equ TS_HAIT+1 

TS_REMOVED equ TS_EXCEPT+1 

SIGF_ABORT equ $0001 

SIGF_CHILD equ $0002 

SIGF_BLIT equ $0010 

SIGF_DOS equ $0100 

SIGB_ABORT equ 0 

SIGB_CHILD equ 1 

SIGB_BLIT equ 4 

SIGB_DOS equ 8 

SYS_SIGALLOC equ $0FFFF 
SYS_TRAPALLOC equ $08000 
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IO-Request-Struktur 


014 

10 DEVICE 

ds.l 

1 

["Device-Struktur 

018 

I0_UNIT 

ds.l 

1 

;"Unit (des Drivers) 

01C 

IO_COMMAND 

ds .v 

1 

["Device Command 

01E 

I0_FLAGS 

ds.b 

1 

;Flags 

01F 

I0_ERR0R 

ds.b 

1 

;oder Warning-Code 


I0_SIZE 

equ 

$020 


;IO-Extension 




020 

I0_ACTUAL 

ds.l 

1 

[übertragene Bytes 

024 

I0_LENGTH 

ds.l 

1 

[Gesamt Bytes 

028 

I0_DATA 

ds. 1 

1 

;"Daten 

02C 

I0_0FFSET 

ds. 1 

1 

[Offset wenn Seeking 


IOSTD_SIZE 

equ 

$30 


I0B_QUICK 

equ 0 




I0F_QUICK 

equ 1 





A 4.2 DOS 




;File-Zugriff 

«ODE READWRITE 

equ 

1004 

;nur ab V 1.2 

«ODE OLDFILE 

equ 

1005 


MODE READONLY 

equ 

MODE OLDFILE 


MODE_NEWFILE 

equ 

1006 



;SEEK-Funktion, relative Positionen 


OFFSET BEGINNING 

equ 

-i 

[Beginn des Files 

OFFSET BEGINING 

equ 

OFFSET_BEGINNING 

OFFSET CURRENT 

equ 

0 

[relativ zu Ist 

OFFSET_END 

equ 

1 

[Ende des Files 

[Trivialitäten 

BITSPERBYTE 

equ 

8 


BYTESPERLONG 

equ 

4 


BITSPERLONG 

equ 

32 


MAXINT 

equ 

$7FFFFFFF 


MININT 

equ 

$80000000 


[Arten von Locks 

SHARED LOCK 

equ 

-2 

[andere Tasks dürfen lesen 

ACCESS READ 

equ 

SHARED LOCK 


EXCLUSIVE LOCK 

equ 

-1 

[dürfen nicht 

ACCESS_WRITE 

equ 

EXCLUSSIVE_LOCK 
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;DateStamp 


00 

ds_Days 

ds.l 

1 

;Tage seit 1.1.1978 

04 

ds Minute 

ds.l 

1 

;Minuten seit 30 Uhr 

08 

ds_Tick 

ds.l 

1. 

jTicks in lfd. Minute 


ds_SIZE0F 

equ 

$0C 



TICKS_PER_SECOND equ 50 ;1 Tick = 1/50 sec 


;FileInfoBlock 


00 

fib_DiskKey 

ds.l 

1 


04 

fib_DirEntryType ds.l 

1 

;0=File, >0 - Dir. 

08 

fib_FileName 

ds. b 

108 

;trotzdem nur max. 30 

74 

fib_Protection 

ds.l 

1 

;siehe equ unten 

78 

fib_EntryType 

ds.l 

1 


7C 

fib_Size 

ds.l 

1 

;Filegroesse 

80 

fib_NumBlocks 

ds.l 

1 


84 

fib_DateStamp 

ds .b 

ds_SIZE0F 

; letzte Aenderung 

90 

fib_Comment 

ds .b 

116 



fib_SIZE0F 

equ 

$104 


FIBB_ 

READ equ 

3 



fibf] 

READ equ 

8 



FIBB_ 

.WRITE equ 

2 



FIBF_ 

URITE equ 

4 



FIBB_ 

EXECUTE equ 

1 



FIBF_ 

_EXECUTE equ 

2 



fibb’ 

DELETE equ 

0 



FIBF_ 

DELETE equ 

1 




InfoData (einer Diskette) 


In dieser Struktur stecken BCPL-Zeiger, daher muss sie auf 
eine Langwortgrenze justiert sein! 



CNOP 

0,4 


00 

id NumSoftErrors 

ds. 1 

1 

04 

id_UnitNumber 

ds.l 

1 

08 

id_DiskState 

ds.l 

1 

0C 

id_NumBlocks 

ds.l 

1 

10 

id_NumBlocksUsed 

ds. 1 

1 

14 

id BytesPerBlock 

ds.l 

1 

18 

id_DiskType 

ds.l 

1 

IC 

id_VolumeNode 

ds.l 

1 

20 

id_lnllse 

ds.l 

1 


id_SIZE0F 

equ 

$24 


;Siehe equ unten 


;0, wenn nicht 


ID_WRITE_PROTECTED equ 80 
ID_VALIDATING equ 81 
ID_VALIDATED equ 82 
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ID_NO_DISK_PRESENT 

equ 

-i 


ID_UNREADABLE_D1SK 

equ 

$42414400 

; ’BAD’ geshifted 

ID_NOT_REALLY_DOS 

equ 

$E444F53 

; ’NDOS’ 

ID_DOS_DISK 

equ 

$44F5300 

; 'DOS' 

ID_KICKSTART_DISK 

equ 

$B49434B 

; 'KICK' 


;Error-Codes 


ERROR_NO_FREE_STORE 

ERROR_OBJECT_IN_USE 

ERROR_OBJECT_EXISTS 

ERROR_OBJECT_NOT_FOUND 

ERROR_ACTION_NOT_KNOWN 

ERROR_INVALID_COMPONENT_NAME 

ERROR_INVALID_LOCK 

ERROR_OBJECT_WRONG_TYPE 

ERROR_DISK_NOT_VALI DATED 

ERROR_DISK_WRITE_PROTECTED 

ERROR_RENAME_ACROSS_DEVICES 

ERROR_DIRECTORY_NOT_EMPTY 

ERROR_DEVICE_NOT_HOUNTED 

ERROR_SEEK_ERROR 

ERROR_COMMENT_TOO_BIG 

ERROR_DISK_FULL 

ERROR_DELETE_PROTECTED 

ERROR_WRITE_PROTECTED 

ERROR_READ_PROTECTED 

ERROR_NOT_A_DOS_DISK 

ERROR_NO_DISK 

ERROR NO MORE ENTRIES 


equ 

103 

equ 

202 

equ 

203 

equ 

205 

equ 

209 

equ 

210 

equ 

211 

equ 

212 

equ 

213 

equ 

214 

equ 

215 

equ 

216 

equ 

218 

equ 

219 

equ 

220 

equ 

221 

equ 

222 

equ 

223 

equ 

224 

equ 

225 

equ 

226 

equ 

232 


;empfohlene Return-Codes 


RETURN OK equ 

0 

;alles bestens 

RETURN_WARN equ 

5 

;nur Warnung/Hinweis 

RETURN ERROR equ 

10 

;Fehler 

RETURN_FAIL equ 

20 

;Totalschaden 

;Break-Codes 

SIGBREAKB CTRL C 

equ 

12 

SIGBREAKF CTRL C 

equ 

$1000 

SIGBREAKB CTRL D 

equ 

13 

SIGBREAKF CTRL D 

equ 

$2000 

SIGBREAKB CTRL E 

equ 

14 

SIGBREAKF CTRL E 

equ 

$4000 

SIGBREAKB CTRL F 

equ 

15 

SIGBREAKF_CTRL_F 

equ 

$8000 
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A 43 Intuition 

;Die folgenden Konstanten stehen hier nur hilfsweise. Sie 
;uurden aus den anderen Anhaengen A4.x uebernommen, um die 
;Abhängigkeiten aufzeigen zu koennen. 


bm_SIZE0F 

EQU 

$28 

;aus gfx 

vp_SIZE0F 

equ 

$28 

;aus view 

rp_SIZE0F 

equ 

$64 

;aus rastport 

RP_JAH2 

equ 

1 


1i_SIZEOF 

equ 

$66 

;aus layers 

MN_SIZE 

equ 

$14 

;aus port 

TV_SIZE 

equ 

8 

;aus timer 


;Ende Hilfe 


l 

Menu-Titel 




1 

00 

mu NextMenu 

ds.l 

i 

“Nächster Titel 

04 

mu_LeftEdge 

ds .w 

i 

links 

06 

mu_TopEdge 

ds .w 

i 

oben 

08 

mu Uidth 

ds.w 

i 

Breite 

0A 

mu_Height 

ds.w 

i 

Höhe 

0C 

mu Flags 

ds.w 

i 

Bits siehe unten 

0E 

mu MenuName 

ds.l 

i 

“Titel-Text 

12 

mu Firstitem 

ds.l 

i 

“Item-Liste 

16 

mu JazzX 

ds.w 

i 

intern 

18 

mu JazzY 

ds.w 

i 


1A 

mu BeatX 

ds.w 

i 


IC 

mu BeatY 

ds.w 

i 



mu_SIZE0F 

equ 

$1E 


MENUENABLED 

equ $0001 


jaktiv 

MIDRAUN 

equ $0100 


;gezeichnet 


• 

Menu-Items 




00 

mi Nextltem 

ds.l 

1 

"Nächstes Item 

04 

mi_LeftEdge 

ds.w 

1 

links 

06 

mi TopEdge 

ds .w 

1 

oben 

08 

mi Uidth 

ds.w 

1 

Breite 

0A 

mi_Height 

ds.w 

1 

Höhe 

0C 

mi Flags 

ds.w 

1 

siehe unten 

0E 

mi MutualExclude 

ds.l 

1 

je Item 1 Bit 

12 

mi ItemFill 

ds.l 

1 

“Text oder “Im 

16 

mi SelectFill 

ds.l 

1 

siehe unten 

1A 

mi Command 

ds .b 

1 

Taste 
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1B 

ml AdjustToWord 

ds. b 

1 

IC 

mi_SubItem 

ds.l 

1 ;'Subitem-Liste 

20 

mi NextSelect 

ds .w 

1 ;Noch ein Item? 


mi_SIZE0F 

equ 

$22 


CHECKIT 

equ 

$0001 

Attribut-Item 

ITEMTEXT 

equ 

$0002 

Item hat Text sonst Image 

COMMSEQ 

equ 

$0004 

Item hat Taste 

MENUTOGGLE 

equ 

$0008 


ITEMENABLED 

equ 

$0010 


HIGHFLAGS 

equ 

$00C0 

Highligt an, dann: 

HIGHIMAGE 

equ 

$0000 

alternativ Image/Text 

HIGHCOMP 

equ 

$0040 

Komplement aller Bits in Item 

HIGHBOX 

equ 

$0080 

Box um die Item-Box 

HIGHNONE 

equ 

$00C0 

Keinerlei Highligting 

CHECKED 

equ 

$0100 

Check-Marke wenn gewählt 

ISDRAHN 

equ 

$1000 

1 wenn Item auf Schirm 

HIGHITEM 

equ 

$2000 

1 wenn highligted 

MENUTOGGLED 

equ 

$4000 

1 wenn toggled 

NOMENU 

equ 

$001F 

1/0= Menu an/aus 

NOITEM 

equ 

$005F 

Item an/aus 

NOSUB 

equ 

$001F 

Subitems an/aus 

MENUNULL 

equ 

$FFFF 

Kein Item angewählt 

CHECKWIDTH 

equ 

19 

Platz für Check-Marke 

COMMWIDTH 

equ 

27 

Platz für Taste wenn HighRes 

LOWCHECKWIDTH 

equ 

15 

wenn niedrige Auflösung 

1 

i Requester 


00 

rq_01derRequest 

ds.l 

1 

Vorgänger 

04 

rq_L e ftEdge 

ds.w 

1 

links 

06 

rq_TopEdge 

ds.w 

1 

oben 

08 

rq_Width 

ds.w 

1 

Breite 

0A 

rq_Height 

ds.w 

1 

Höhe 

0C 

rq_RelLeft 

ds.w 

1 

Wenn Pointer 

0E 

rq_RelTop 

ds.w 

1 

Bezugspunkt 

10 

rq_ReqGadget 

ds.l 

1 

'Gadget-Liste 

14 

rq_ReqBorder 

ds.l 

1 

'Border-Struktur 

18 

rq_ReqText 

ds. 1 

1 

'Text-Struktur 

IC 

rq_Flags 

ds.w 

1 

Bits siehe unten 

IE 

rq_BackFill 

ds.b 

1 

Hintergrund-Pen 

1F 

rq_AdjustToWord ds.b 

1 


20 

rq_ReqLayer 

ds.l 

1 

'Layer-Struktur 

24 

rq_ReqPad1 

ds. b 

52 

Reserviert 

44 

rq_ReqBMap 

ds. 1 

1 

'Custom Bit Map 

48 

rq RWindow 

ds.l 

1 

Reserviert 

4C 

rq ReqPad2 

ds.b 

56 jReserviert 


rq_SIZE0F 

equ 

$70 
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POINTREL 

PREDRAWN 

REQOFFWINDOW 

REQACTIVE 

SYSREQUEST 

DEFERREFRESH 

equ $0001 
equ $0002 
equ $1000 
equ $2000 
equ $4000 
equ $8000 

1 wenn relativ zu Mauszeiger 

1 wenn Custom Bit Map 
wenn Requ. außerhalb Window 

0/1= Requ. aktiv 

nur wenn System-Requester 

1 

» 

Gadgets 



00 

gg NextGadget 

ds.l 1 

'Nächstes Gadget 

04 

gg_LeftEdge 

ds.w 1 

links 

06 

gg_TopEdge 

ds ,w 1 

oben 

08 

EE Width 

ds.w 1 

Breite 

0A 

gg_Height 

ds.w 1 

Höhe 

0C 

gg_Flags 

ds.w 1 

Bits siehe unten 

0E 

gg Activation 

ds.w 1 

Bits siehe unten 

10 

gg_GadgetType 

ds.w 1 

Bool/Str/Prop 

12 

gg_GadgetRender 

ds.l 1 

"Image oder "Border 

16 

gg SelectRender 

ds.l 1 

"Alternative von ” 

1A 

gg GadgetText 

ds.l 1 

"Text-Struktur 

IE 

gg_MutualExcludeds.l 1 

Ohne Wirkung!? 

22 

gg Speciallnfo 

ds.l 1 

"Str oder Proplnfo 

26 

gg_GadgetID 

ds.w 1 

beliebige User-ID 

28 

gg UserData 

ds.l 1 

"beliebige Daten 

2C 

gg_SIZE0F 

equ $2C 



AUTOFRONTPEN 

equ 

0 

;empfohlene Werte für Auto-Request 

AUTOBACKPEN 

equ 

1 

;siehe IntuitionText 

AUTODRAWMODE 

equ 

1 


AUTOLEFTEDGE 

equ 

6 


AUTOTOPEDGE 

equ 

3 


AUTOITEXTFONT 

equ 

0 


AUTONEXTTEXT 

equ 

0 



GADGHIGHBITS 

equ $0003 

Kein Highliting oder: 

GADGHCOMP 

equ $0000 

Komplement aller Bits 

GADGHBOX 

equ $0001 

Box um Gadget 

GADGHIMAGE 

equ $0002 

alternatives Image/Border 

GADGHNONE 

equ $0003 

Kein Highliting 

GADGIMAGE 

equ $0004 

0/1=Border/Image 

GRELBOTTOM 

equ $0008 

0/1= relativ zu Top/Bottom-Grenze 

GRELRIGHT 

equ $0010 

0/1= relativ zu links/rechts 

GRELWIDTH 

equ $0020 

Absolute/Relative Breite 

GRELHEIGHT 

equ $0040 

Höhe 

SELECTED 

equ $0080 

Vorwahl aus/an 

GADGDISABLED 

equ $0100 

für An/Aus-Gadgets 

RELVERIFY 

equ $0001 

Release Verify 

GADGIMMEDIATE 

equ $0002 

Sofort Nachricht wenn 
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ENDGADGET 

equ $0004 

Requester vom Schirm 

FOLLOWMOUSE 

equ $0008 

Sende Haus-Koordinaten 

RIGHTBORDER 

equ $0010 

justieren nach rechts 

LEFTBORDER 

equ $0020 

links 

TOPBORDER 

equ $0040 

oben 

BOTTOMBORDER 

equ $0080 

unten 

TOGGLESELECT 

equ $0100 

toggelt Gadget 

STRINGCENTER 

equ $0200 

Justiert Text 

STRINGRIGHT 

equ $0400 


LONGINT 

equ $0800 

Erlaube Long Int im String Gadget 

ALTKEYMAP 

equ $1000 

Wenn vorhanden und in Stringinfo 

,-Einer dieser Typen muß sein: 


BOOLGADGET 

equ $0001 


GADGET0002 

equ $0002 


PROPGADGET 

equ $000? 


STRGADGET 

equ $0004 


GADGETTYPE 

equ $FC00 


SYSGADGET 

equ $8000 ;System-Gadget (vergibt Intuition) 

SCRGADGET 

equ $4000 

wenn im Screen 

GZZGADGET 

equ $2000 

wenn im Gimmezerozero-Window 

REQGADGET 

equ $1000 

wenn im Requester 

SIZING 

equ $0010 ;Sys-Typen 

WDRAGGING 

equ $0020 


SDRAGGING 

equ $0030 


WUPFRONT 

equ $0040 


SUPFRONT 

equ $0050 


WDOWNBACK 

equ $0060 


SDOWNBACK 

equ $0070 


CLOSE 

equ $0080 



Proplnfo (für Proportional-Gadgets) 


00 

pi_Flags 

ds .w 

i 

siehe unten 

02 

pi_HorizPot 

ds.w 

i 

Horizontal $ 

04 

pi VertPot 

ds .w 

i 

Vertikal % 

06 

pi_HorizBody 

ds.w 

i 

entweder den 

08 

pi_VertBody 

ds.w 

i 

oder den anzeigen 

0A 

pi_CWidth 

ds.w 

i 

Breite Rahmen 

0C 

pi_CHeight 

ds.w 

i 

Höhe 

0E 

pi_HPotRes 

ds.w 

i 

Schrittweite hör. 

10 

pi VPotRes 

ds .w 

i 

ver. 

12 

pi LeftBorder 

ds .w 

i 

Rahmenlage links 

14 

pi_TopBorder 

ds .w 

i 

oben 

16 

pi_SIZEOF 

equ 

$16 


AUTOKNOB 

equ $0001 

;Autom 

. Knopf 


FREEHORIZ 

equ $0002 

;Knopfbewegung horizontal 

FREEVERT 

equ $0004 

; 

vertikal 

PROPBORDERLESS 

equ $0008 

;0hne 

Border 
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KNOBHIT 

KNOBHMIN 

KNOBVMIN 

MAXBODY 

MAXPOT 

; Stringinfo 


equ $0100 ;1 wenn Knopf berührt wird 

equ 6 ;Limits: 

equ 4 

equ $FFFF 

equ $FFFF 

(für String-Gadgets) 


00 

si_Buffer 

ds.l 

1 

"Arbeitspuffer 

04 

si UndoBuffer 

ds.l 

1 

“Undo-Buffer oder 0 

08 

si_BufferPos 

ds .w 

1 

Anfangs-Cursor-Position 

0A 

si MaxChars 

ds .v 

1 

Puffergröße + 1; 

0C 

si_DispPos 

ds .w 

1 

Pos. Cursor-Zeichen 

0E 

si_UndoPos 

ds .w 

1 

Cursor in Undo-Buffer 

10 

si_NumChars 

ds .v 

1 

Zeichen im Puffer 

12 

si_DispCount 

ds .v 

1 

Zeichen sichtbar 

14 

si_CLeft 

ds .v 

1 

Lage des Rahmens 

16 

si_CTop 

ds .v 

1 


18 

si_LayerPtr 

ds.l 

1 

"Layer des Gadgets 

IC 

si_LongInt 

ds.l 

1 

Long Int hier 

20 

si AltKeyMap 

ds.l 

1 

"eigene Keymap 


si_SIZEOF 

equ 

$24 



; Intuition Text 

1 

00 

it_FrontPen 

ds.b 

i 

Vordergrund-Farbe 

01 

it_BackPen 

ds.b 

i 

Hintergrund 

02 

it DrawMode 

ds.b 

i 

JAM1, JAM2 oder XOR 

05 

it AdjustToWord 

ds.b 

i 


04 

it_LeftEdge 

ds .w 

i 

Lage links 

06 

it_TopEdge 

ds .w 

i 

oben 

08 

it ITextFont 

ds.l 

i 

“Font-Struktur oder 

0C 

it_IText 

ds.l 

i 

“Text-String (0-term 

10 

it NextText 

ds.l 

i 

“Nächste Struktur o. 


it_SIZE0F 

equ 

$14 


; Borders (Polygone) 

00 

bd_LeftEdge 

ds.w 

1 

Start links 

02 

bd_TopEdge 

ds.w 

1 

oben 

04 

bd_FrontPen 

ds.b 

1 

Vordergrund-Farbe 

05 

bd BackPen 

ds.b 

1 

ohne Wirkung 

06 

bd DrawMode 

ds.b 

1 

JAM1 oder XOR 

07 

bd Count 

ds.b 

1 

Anzahl Paare 

08 

bd XY 

ds.l 

1 

“Array mit Paaren 

0C 

bd NextBorder 

ds.l 

1 

“Nächstes oder 0 

10 

bd_SIZE0F 

equ 

$10 
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Images 


00 

ig_LeftEdge 

ds .w 

1 

Lage links 

02 

ig_TopEdge 

ds .w 

1 

oben 

04 

ig_Width 

ds .w 

1 

Breite 

06 

ig_Height 

ds .w 

1 

Höhe 

08 

ig_Depth 

ds .w 

1 

Anzahl Bitplanes 

0A 

ig_ImageData 

ds.l 

1 

"Bitmuster 

0E 

ig PlanePick 

ds.b 

1 

Genutzte Planes 

0F 

ig PlaneOnOff 

ds. b 

1 


10 

ig_NextImage 

ds.l 

1 

"Nächste Struktur 

14 

ig_SIZE0F 

equ 

$14 



Intuition Message 


00 

im_ExecMessage 

ds.b 

MN_SIZE ;reserviert 

14 

im Class 

ds.l 

1 

Bits wie IDCMP-Flags 

18 

im Code 

ds .w 

1 

Werte hier 

1A 

im Qualifier 

ds .w 

1 

für RAW-IO 

IC 

im IAddress 

ds. 1 

1 

Adresse von Objekten 

20 

im MouseX 

ds.w 

1 

Mouse-Koordinaten 

22 

im MouseY 

ds .w 

1 


24 

im Seconds 

ds.l 

1 

System-Zeit 

28 

im Micros 

ds.l 

1 


2C 

im IDCMPWindow 

ds.l 

1 

Adresse des Fensters 

50 

im SpecialLink 

ds.l 

1 

reserviert 


im_SIZEOF 

equ 

$54 



SIZEVERIFY 

NEWSIZE 

REFRESHWINDOW 

MOUSEBUTTONS 

MOUSEMOVE 

GADGETDOWN 

GADGETUP 

REQSET 

MENUPICK 

CLOSEWINDOW 

RAWKEY 

REQVERIFY 

REQCLEAR 

MENUVERIFY 

NEWPREFS 

DISKINSERTED 

DISKREMOVED 

WBENCHMESSAGE 

ACTIVEWINDOW 

INACTIVEWINDOW 


equ 

$00000001 

equ 

$00000002 

equ 

$00000004 

equ 

$00000008 

equ 

$00000010 

equ 

$00000020 

equ 

$00000040 

equ 

$00000080 

equ 

$00000100 

equ 

$00000200 

equ 

$00000400 

equ 

$00000800 

equ 

$00001000 

equ 

$00002000 

equ 

$00004000 

equ 

$00008000 

equ 

$00010000 

equ 

$00020000 

equ 

$00040000 

equ 

$00080000 


Message wenn 
Message wenn 
Message wenn 
Message wenn 


Versuch Sizing 
Sizing fertig 
Refresh nötig 
Mouse-Events 


Message wenn Gadget-Event 


Message wenn Requester 
Message wenn Menu-Event 
Message wenn Close_Gadget 
Message wenn Raw-Key 
Warte bevor Requester erlaubt 
Message wenn letzter Requ. weg 
Warte bis Menus gezeichnet 
Message wenn Prefs. geändert 
Message wenn Diskette 

rein/raus 
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DELTAMOVE 

equ 

$00100000 

;Mouse-Pos. relativ 

VANILLAKEY 

equ 

$00200000 

;Message wenn Key in Code 

INTUITICKS 

equ 

$00400000 

;Message nach 1/10 Sekunde 

LONELYMESSAGE 

equ 

$80000000 

J 

;für Menu-Verify: 



MENUHOT 

equ 

$0001 ;Cancel muß verifiziert werden 

MENUCANCEL 

equ 

$0002 ;Hot 

Reply cancelt Menu 

MENUWAITING 

equ 

$0003 ;Int. 

. wartet auf Reply 

WBENCHOPEN 

equ 

$0001 


WBENCHCLOSE 

equ 

$0002 


1 

; NewWindow 


00 

nw_LeftEdge 

ds.w 

1 


links 

02 

nw_TopEdge 

ds .w 

1 


oben 

04 

nw_Width 

ds.w 

1 


Breite 

06 

nw_Height 

ds.w 

1 


Höhe 

08 

nw_DetailPen 

ds.b 

1 


Fein-Stift 

09 

nw_BlockPen 

ds.b 

1 


Grob-Stift 

0A 

nw_IDCMPFlags 

ds.l 

1 


Bits siehe unten 

0E 

nw_Flags 

ds. 1 

1 



12 

nw_FirstGadget 

ds.l 

1 


"User-Gadgets 

16 

nw_CheckMark 

ds.l 

1 


"User-Checkmark 

1A 

nw_Title 

ds. 1 

1 


"Titel-Text 

IE 

nw_Screen 

ds.l 

1 


"Screen 

22 

nw_BitMap 

ds.l 

1 


"User-Bitmap 

26 

nw_MinWidth 

ds .w 

1 


Min. Breite 

28 

nw_MinHeight 

ds.w 

1 


Höhe 

2A 

nw_MaxWidth 

ds.w 

1 


Max. Breite 

2C 

nw_MaxHeight 

ds .w 

1 


Höhe 

2E 

nw_Type ds.w 

1 



Screen-Typ 


nw_SIZE 

equ 

$30 



WINDOWSIZING 

equ $0001 

erlaubte -Gadgets 

WINDOWDRAG 

equ $0002 





HINDOWDEPTH 

equ $0004 





UINDOWCLOSE 

equ $0008 





SIZEBRIGHT 

equ $0010 

Sizing-Gadget 

rechts außen 

SIZEBBOTTOM 

equ $0020 




innen 

REFRESHBITS 

equ $00C0 

Eines 

sollte 

sein: 

SMART_REFRESH 

equ $0000 





SIMPLE_REFRESH 

equ $0040 





SUPER_BITMAP 

equ $0080 





OTHER_REFRESH 

equ $00C0 





BACKDROP 

equ $0100 ;Wenn 

Backdrop-Window 

REPORTMOUSE 

equ $0200 

Message wenn 

Mouse-Event 
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GIMMEZEROZERO 

equ 

$0400 

;Wenn das gewünscht 

BORDERLESS 

equ 

$0800 

;wenn kein Rahmen 

ACTIVATE 

equ 

$1000 

;Aktiv nach Open 

WINDOWACTIVE 

equ 

$2000 

;Message wenn aktiviert 

INREQUEST 

equ 

$4000 

;Wd in Request-Modus 

MENUSTATE 

equ 

$8000 

;Message wenn Menu 

RMBTRAP 

equ 

$00010000 

;Message wenn rechte Maustaste 

NOCAREREFRESH 

equ 

$00020000 

;keine Message bei Refresh 

WINDOWREFRESH 

equ 

$01000000 


WBENCHWINDOW 

equ 

$02000000 


WINDOWTICKED 

equ 

$04000000 


SUPER_UNUSED 

equ 

$FCFC0000 


; Window 


00 

wd_NextWindow 

ds.l 1 

"nächstes Window 

04 

wd_LeftEdge 

ds.w 1 

links 

06 

wd_TopEdge 

ds.w 1 

oben 

08 

wd_Width 

ds.w 1 

Breite 

0A 

wd_Height 

ds.w 1 

Höhe 

0C 

wd MouseY 

ds .w 1 

Maus X 

0E 

wd_MouseX 

ds.w 1 

Y 

10 

wd_MinWidth 

ds.w 1 

Min. Breite 

12 

wd_MinHeight 

ds.w 1 

Höhe 

14 

wd_MaxWidth 

ds.w 1 

Max. Breite 

16 

wd_MaxHeight 

ds ,w 1 

Höhe 

18 

wd_Flags 

ds.l 1 

Bits siehe oben 

IC 

wd_MenuStrip 

ds.l 1 

"Menu-Liste 

20 

wd_Title 

ds.l 1 

"Titel-Text 

24 

wd_FirstRequest 

ds.l 1 

"erster Requ. 

28 

wd DMRequest 

ds.l 1 

“DM-Requ. 

2C 

wd_ReqCount 

ds.w 1 

Anzahl Requ. 

2E 

wd_WScreen 

ds.l 1 

"Screen 

52 

wd_RPort 

ds.l 1 

"RastPort 

56 

wd_BorderLeft 

ds.b 1 

aktuelle Lage von: 

57 

wd_BorderTop 

ds. b 1 


58 

wd_BorderRight 

ds.b 1 


59 

wd_BorderBottom 

ds.b 1 


5A 

wd_BorderRPort 

ds.l 1 

“RastPortG00-Wd.außen 

5E 

wd_FirstGadget 

ds.l 1 

"Gadget-Liste 

42 

wd_Parent 

ds.l 1 

in Liste 

46 

wd_Descendant 

ds:l 1 


4A 

wd_Pointer 

ds.l 1 

“Mauszeiger-Struktur 

4E 

wd_PtrHeight 

ds.b 1 

Höhe 

4F 

wd PtrWidth 

ds.b 1 

Breite 
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50 

ud_XOffset 

ds.b 1 

Offset 

51 

ud_YOffset 

ds.b 1 


52 

ud_IDCMPFlags 

ds.l 1 

Bits siehe oben 

56 

wd_UserPort 

ds.l 1 

"Empfangsport 

5A 

ud_WindouPort 

ds.l 1 

"Sende-Port 

5E 

ud_MessageKey 

ds.l 1 

"Int.-Message 

62 

ud_DetailPen 

ds.b 1 

Fein 

65 

ud_BlockPen 

ds.b 1 

Grob 

64 

ud_CheckMark 

ds.l 1 

"User-Checkmark 

68 

ud ScreenTitle 

ds.l 1 

"Screen-Titel (0) 

6C 

ud_GZZMouseX 

ds. v 1 

Nur wenn G00-Window 

6E 

ud_GZZMouseY 

ds .u 1 


70 

vd_GZZWidth 

ds.u 1 


72 

wd_GZZHeight 

ds.v 1 


74 

ud_ExtData 

ds.l 1 

Zwei Zeiger für 

78 

ud_UserData 

ds.l 1 

User 

7C 

wd_WLayer 

ds.l 1 

"Layer des Wd 



NeuScreen 




00 

ns_LeftEdge 

ds .v 

1 

links 

02 

ns_TopEdge 

ds.u 

1 

oben 

04 

ns Width 

ds .v 

1 

Breite 

06 

ns_Height 

ds.u 

1 

Höhe 

08 

ns_Depth 

ds.u 

1 

Bitplanes 

0A 

ns DetailPen 

ds. b 

1 

Zeichen- 

0B 

ns BlockPen 

ds.b 

1 

Stifte 

0C 

ns ViewModes 

ds.u 

1 

0, HIRES usu. 

0E 

ns_Type 

ds.u 

1 

CUSTOM oder Bitmap 

10 

ns Font 

ds.l 

1 

"Font oder 0 

14 

ns DefaultTitle 

ds.l 

1 

"Titeltext 

18 

ns_Gadgets 

ds.l 

1 

Immer 0 setzen!! 

IC 

ns_CustomBitMap ds.l 

1 

"auf eigene Bitmap 


ns_SIZE0F 

equ 

$20 


SCREENTYPE 

equ $000F 

alle Typen 


WBENCHSCREEN 

equ $0001 

Workbench 


CUSTOMSCREEN 

equ $000F 

eigener 


SHOWTITLE 

equ $0010 

1 uenn 

ShouTitle gerufen 

BEEPING 

equ $0020 

1 uenn 

Beep (Blink) 

CUSTOMBITMAP 

equ $0040 

1 uenn 

eigene Bitmap 

FILENAME_SIZE 

equ 50 




POINTERSIZE 

equ 56 




TOPAZ EIGHTY 

equ 8 




TOPAZ_SIXTY 

equ 9 
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Screen 


000 

sc_NextScreen 

ds.l 

1 

"'Nächster 

004 

sc FirstWindov 

ds.l 

1 

"erstes Windov 

008 

sc_LeftEdge 

ds.v 

1 

links 

00A 

sc_TopEdge 

ds .v 

1 

oben 

00C 

sc_Width 

ds . v 

1 

Breite 

00E 

sc_Height 

ds.v 

1 

Höhe 

010 

sc MouseY 

ds.v 

1 

Maus-Lage 

012 

sc_MouseX 

ds.v 

1 


014 

sc_Flags 

ds.v 

1 

Bits siehe oben 

016 

sc_Title 

ds.l 

1 

"Titel-Text 

01A 

sc_DefaultTitle 

ds.l 

1 

"Text für Wd ohne 

01E 

sc_BarHeight 

ds .b 

1 

Gröpe der Bars 

01F 

sc_BarVBorder 

ds.b 

1 

für Screen 

020 

sc_BarHBorder 

ds.b 

1 

und alle seine Wd 

021 

sc MenuVBorder 

ds.b 

1 


022 

sc MenuHBorder 

ds.b 

1 


023 

sc_WBorTop 

ds.b 

1 


024 

sc_WBorLeft 

ds.b 

1 


025 

sc_WBorRight 

ds.b 

1 


026 

sc_WBorBottom 

ds.b 

1 


027 

sc_AdjustToWord 

ds.b 

1 


028 

sc_Font 

ds.l 

1 

"Default Font 

02C 

sc_ViewPort 

ds.b 

$64 

Display-Art 

054 

sc_RastPort 

ds.b 

rp_SIZE0F ;Zeichen-Art 

0B8 

sc_BitMap 

ds.b 

$28 

ext. Bitmap-Strukt 

0E0 

sc Layerlnfo 

ds.b 

li_SIZE0F ;Layer-Info 

146 

sc FirstGadget 

ds.l 

1 

"Gadget-Liste 

14A 

sc DetailPen 

ds.b 

1 

Zeichen-Stifte 

14B 

sc_BlockPen 

ds. b 

1 


14C 

sc SaveColor0 

ds.v 

1 

für Beep 

14E 

BarLayer 

ds.l 

1 

sc_fehlt virklich! 

152 

sc ExtData 

ds.l 

1 

"User-Data 

156 

sc_UserData 

ds.l 

1 

der auch 


sc^SIZEOF 

equ 

$ 15A 



Preferences (Siehe dazu Equates unten) 


00 

pf_FontHeight 

ds.b 

1 

01 

pf PrinterPort 

ds.b 

1 

02 

pf BaudRate 

ds.v 

1 

04 

pf_KeyRptSpeed 

ds. b 

TV_SIZE 

0C 

pf_KeyRptDelay 

ds.b 

TV_SIZE 

14 

pf_DoubleClick 

ds. b 

TV_SIZE 

IC 

pf PointerMatrix 

ds.b 

P0INTERSIZE*2 

64 

pf_XOffset 

ds.b 

1 

65 

pf_YOffset 

ds. b 

1 
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66 

pf_color17 

ds .v 

1 

68 

pf_color18 

ds .v 

1 

6A 

pf_color19 

ds .v 

1 

6C 

pf J’ointerTicks 

ds .v 

1 

6E 

pf_color0 

ds .v 

1 

70 

pf_color1 

ds .w 

1 

72 

pf_color2 

ds .v 

1 

74 

pf_color3 

ds .v 

1 

76 

pf J/ievXOffset 

ds .b 

1 

77 

pf_ViewYOffset 

ds .b 

1 

78 

pf J/ievInitX 

ds .v 

1 

7A 

pfJ/ievInitY 

ds .v 

1 

7C 

EnableCLI 

ds .v 

1 

7E 

pf JrinterType 

ds .w 

1 

80 

pf PrinterFilename 

ds. b 

FILENAME_SIZE 

9E 

pf PrintPitch 

ds .v 

1 

A0 

pf_PrintQuality 

ds .w 

1 

A2 

pf_PrintSpacing 

ds .v 

1 

A4 

pf J’rintLeftMargln 

ds .w 

1 

A6 

pf_PrintRightMargin 

ds .v 

1 

A8 

pf_PrintImage 

ds .u 

1 

AA 

pf_PrintAspect 

ds .v 

1 

AC 

pf J’rintShade 

ds.v 

1 

AE 

pf_PrintThreshold 

ds .u 

1 

B0 

pf_PaperSize 

ds .v 

1 

B2 

pf_PaperLength 

ds .v 

1 

B4 

pf J’aperType 

ds .u 

1 

B6 

pf_padding 

ds. b 

50 


pf_SIZEOF 

equ 

$E8 


PARALLEL_PRINTER 

equ 

$00 

SERIAL_PRINTER 

equ 

$01 

BAUDJ 10 

equ 

$00 

BAUDJ 00 

equ 

$01 

BAUDJ 200 

equ 

$02 

BAUD_2400 

equ 

$03 

BAUDJ800 

equ 

$04 

BAUD_9600 

equ 

$05 

BAUDJ 9200 

equ 

$06 

BAUDJIDI 

equ 

$07 

FANFOLD 

equ 

$00 

SINGLE 

equ 

$80 

PICA 

equ 

$000 

ELITE 

equ 

$400 

FINE 

equ 

$800 

DRAFT 

equ 

$000 

LETTER 

equ 

$100 

SIX_L PI 

equ 

$000 
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EIGHT_LPI 

equ 

$200 

IMAGE_POSITIVE 

equ 

0 

IMAGE_NEGATIVE 

equ 

1 

ASPECT_H0RIZ 

equ 

0 

ASPECT_VERT 

equ 

1 

SHADE_BW 

equ 

$00 

SHADE_GREYSCALE 

equ 

$01 

SHADE_COLOR 

equ 

$02 

US_LETTER 

equ 

$00 

US_LEGAL 

equ 

$10 

N_TRACT0R 

equ 

$20 

W_TRACTOR 

equ 

$30 

CUSTOM 

equ 

$40 

CUSTOM_NAME 

equ 

$00 

ALPHA_P_101 

equ 

$01 

BR0THER_15XL 

equ 

$02 

CBM_MPS1000 

equ 

$03 

DIAB_630 

equ 

$04 

DIAB_ADV_D25 

equ 

$05 

DIAB_C_150 

equ 

$06 

EPSON 

equ 

$07 

EPSON JX 80 

equ 

$08 

OKIMATE_20 

equ 

$09 

QUME_LP_20 

equ 

$0A 

HP_LASERJET 

equ 

$0B 

HP_LASERJET_PLUS 

equ 

$0C 


Remember 


00 

rm_NextRemeinber 

ds.l 

1 

;“Nächster Knoten 

04 

rm_RememberSize 

ds.l 

1 

;Gröee 

08 

rm_Memory 

ds.l 

1 

;“Adresse 

0C 

rm SIZEOF 

ds .v 

0 



Alerts 


ALERT_TYPE 

equ 

$80000000 

RECOVERY_ALERT 

equ 

$00000000 

DEADEND_ALERT 

equ 

$80000000 
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A 4.4 Graphics 

;zu Testzuecken importiert vom: 


MP_SIZE equ 

$22 

;ports 

LH_SIZE equ 

$0E 

; lists 

MN_SIZE equ 

$14 

;ports 

IS_SIZE equ 

$16 

j libraries 

LIB_SIZE equ 

$22 



;Layer-Structure 


00 

lr' Front 

ds.l 

1 


“Layer ueber diesem 

04 

lr Back 

ds.l 

1 


“Layer unter diesem 

08 

lr_ClipRect 

ds.l 

1 


“Clipping-Rechteck-Struktur 

0C 

lr RastPort 

ds.l 

1 


“Rastport 

10 

lr MinX 

ds .v 

1 


Clipping-Rechteck: 

12 

lr MinY 

ds .v 

1 



14 

lr MaxX 

ds .v 

1 



16 

lr MaxY 

ds.v 

1 



18 

lr Lock 

ds. b 

1 


Task-Lock des Layers 

19 

lr LockCount 

ds.b 

1 


Anzahl Tasks zu 

1A 

lr_LayerLockCount ds.b 

1 


diesem Layer 

1B 

lr reserved 

ds. b 

1 



IC 

lr reservedl 

ds .w 

1 



IE 

lr Flags 

ds.w 

1 


16 Bit = Typ 

20 

lr_SuperBitMap 

ds. 1 

1 


“Super-Bitmap 

24 

lr_SuperClipRect 

ds.l 

1 


“ClipRect wenn S-Bitmap-Lay 

28 

lr Window 

ds.l 

1 


“Intuition-Window 

2C 

lr Scroll X 

ds.w 

1 


Sero-Weite in Pixels 

2E 

lr Scroll Y 

ds.w 

1 



30 

lr LockPort 

ds.b 

MP_ 

SIZE ;Name Msg-Port 

52 

lr LockMessage 

ds. b 

MN_ 

_SIZE ;Msg-Struktur 

66 

lr ReplyPort 

ds.b 

MP_ 

SIZE ;Name Msg-Port 

88 

lr 1 LockMessage 

ds.b 

MN_ 

SIZE ;Msg-Struktur 

9C 

lr_DamageList 

ds.l 

1 


“Region-Struktur 

A0 

lr cliprects 

ds. 1 

1 


“Clip-Rect 

A4 

lr Layerlnfo 

ds.l 

1 


“Layerinfo-Stuktur 

A8 

lr LayerLocker 

ds.l 

1 


“Task-Struktur 

AC 

lr SuperSaverClipRects 

ds.l 


1 ;System-Use: 

B0 

lr er 

ds.l 

1 



B4 

lr cr2 

ds.l 

1 



B8 

lr ernev 

ds.l 

1 



BC 

lr pl 

ds.l 

1 



C0 

lr_SIZE0F 

ds.w 

0 



;Clip-Rect 





l 

00 

er Next 

ds.l 

1 


“Nachfolger 

04 

cr_Prev 

ds.l 

1 


"Vorgaenger 
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08 

cr_LOt>s 

ds. 1 

1 

;System-Use 

0C 

cr_BitMap 

ds. 1 

1 

; "Super-Bitmap 

10 

cr_MinX 

ds .v 

1 

[Rechteck: 

12 

cr_MinY 

ds .v 

1 


14 

cr_MaxX 

ds .v 

1 


16 

cr_MaxY 

ds .v 

1 


18 

er_pl 

ds.l 

1 

;System-Use: 

IC 

er_p2 

ds. 1 

1 


20 

cr_reserved 

ds.l 

1 


24 

cr_Flags 

ds.l 

1 


28 

cr_SIZEOF 

ds .u 

0 



ISLESSX equ 1 




ISLESSY equ 2 




ISGRTRX equ 4 




ISGRTRY equ 8 




; copper 

• 




COPPER MOVE equ 

0 


;Pseudo-Op-Codes 

COPPER WAIT equ 

1 



CPRNXTBUF equ 

2 



CPR 

NT LOF equ 

$8000 


CPR 

_NT_SHT equ 

$4000 


00 

ci_0pCode 

ds .v 

1 

;0p-Codes 

02 

cl nxtlist 

ds.b 

0 


02 

ei VWaitPos 

ds .b 

0 


02 

ci DestAddr 

ds.b 

2 


04 

ei HWaitPos 

ds.b 

0 


04 

ci DestData 

ds.b 

2 


06 

ci_SIZE0F 

ds.v 

0 


00 

crl Next 

ds.l 

1 

["aktuelle Copper-Liste 

04 

crl start 

ds.l 

1 


08 

crl MaxCount 

ds.w 

1 


0A 

crl_SIZEOF 

ds.u 

0 


;Copper-Liste 




00 

cl Next 

ds. 1 

1 

;"Nachfolger 

04 

cl CopList 

ds. 1 

1 

;System-Use 

08 

cl VieuPort 

ds. 1 

1 


0C 

cl_CopIns 

ds.l 

1 


10 

cl_CopPtr 

ds.l 

1 


14 

cl_CopLStart 

ds.l 

1 


18 

cl_CopSStart 

ds. 1 

1 


IC 

cl Count 

ds.w 

1 


IE 

cl MaxCount 

ds .v 

1 


20 

cl_DyOffset 

ds .v 

1 
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22 

cl_SIZE0F 

ds.w 0 


00 

ucl_Next 

ds.l 1 


04 

ucl_FirstCopList 

ds.l 1 


08 

ucl_CopList 

ds.l 1 


0C 

ucl_SIZEOF 

ds.w 0 


00 

copinit_diagstrt 

ds.b 

8 

08 

copinit_sprstrtup ds.b 

80 

58 

copinit_sprstop 

ds.b 

4 

5C 

copinit_SIZEOF 

ds.w 

0 


;Cop-List-Header 


;interne Cop-Struktur 


;Gels (Grafik-Elemente) 


SUSERFLAGS 

equ 

$0F 

VSB_VSPRITE 

equ 

0 

VSF_VSPRITE 

equ 

1 

VSB_SAVEBACK 

equ 

1 

VSF_SAVEBACK 

equ 

2 

VSB_OVERLAY 

equ 

2 

VSF_OVERLAY 

equ 

4 

VSB_MUSTDRAW 

equ 

3 

VSF_MUSTDRAW 

equ 

8 

VSB_BACKSAVED 

equ 

8 

VSF_BACKSAVED 

equ 

$100 

VSB_BOBUPDATE 

equ 

9 

VSF_BOBUPDATE 

equ 

$200 

VSB_GELGONE 

equ 

10 

VSF_GELGONE 

equ 

$400 

VSB_VS0VERFL0W 

equ 

11 

VSF_VS0VERFL0W 

equ 

$800 

BUSERFLAGS 

equ 

$0FF 

BB_SAVEBOB 

equ 

0 

BF_SAVEBOB 

equ 

1 

BB_BOBISCOMP 

equ 

1 

BF_B0BISC0MP 

equ 

2 

BB_BWAITING 

equ 

8 

BF_BWAITING 

equ 

$100 

BB_BDRAWN 

equ 

9 

BF_BDRAWN 

equ 

$200 

BB_BOBSAWAY 

equ 

10 

BF_BOBSAWAY 

equ 

$400 

BB_B0BNIX 

equ 

11 

BF_B0BNIX 

equ 

$800 

BB_SAVEPRESERVE 

equ 

12 

BF_SAVEPRESERVE 

equ 

$1000 

BB_OUTSTEP 

equ 

13 

BF_OUTSTEP 

equ 

$2000 


equ 6 


ANFRACSIZE 
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ANIMHALF equ 

$20 



RINGTRIGGER equ 

1 



;V-Sprite-Struktur 

(auch fuer Bobs) 


00 

vs_NextVSprite 

ds.l 

1 

'Nachfolger 

04 

vs_PrevVSprite 

ds.l 

1 

“Vorgaenger 

08 

vs DrauPath 

ds.l 

1 

System-Use 

0C 

vs ClearPath 

ds.l 

1 

System-Use 

10 

vs_01dy 

ds.v 

1 

Vorherige Pos. Y 

12 

vs Oldx 

ds .v 

1 

X 

14 

vs_VSFlags 

ds .v 

1 

Ist: 

16 

vs Y 

ds .v 

1 


18 

vs X 

ds .v 

1 


1A 

vs Height 

ds .u 

1 

Höhe des Sprite 

IC 

vs Width 

ds.u 

1 

Breite 

IE 

vs_Depth 

ds .v 

1 

Bit-Planes 

20 

vs MeMask 

ds.u 

1 

Masken fuer 

22 

vs_HitMask 

ds.u 

1 

Kollisions-Handling 

24 

vs_ImageData 

ds.l 

1 

'Daten 

28 

vs BorderLine 

ds.l 

1 

"Puffer 

2C 

vs CollMask 

ds.l 

1 

"Kollisions-Maske 

30 

vs_SprColors 

ds.l 

1 

"Color-Tabelle 

34 

vs VSBob 

ds.l 

1 

"Bob uenn Bob 

38 

vs PlanePick 

ds.b 

1 

Plane-Maske uenn Bob 

39 

vs PlaneOnOff 

ds.b 

1 


3A 

vs SUserExt 

ds .u 

0 

evtl. User-Extensions 

3A 

vs_SIZE0F 

ds.u 

0 



;Bobs 


00 

bob_BobFlags 

ds.u 

1 

Aspekt-Bits 

02 

bob_SaveBuffer 

ds.l 

1 

"Puffer 

06 

bob_ImageShadou 

ds.l 

1 

"Shadoumask 

0A 

bob_Before 

ds.l 

1 

"Vorgaenger 

0E 

bob_After 

ds.l 

1 

"Nachfolger 

12 

bob_BobVSprite 

ds.l 

1 


16 

bob_BobComp 

ds.l 

1 


1A 

bob_DBuffer 

ds. 1 

1 


IE 

bob_BUserExt 

ds.u 

0 


IE 

bob_SIZE0F 

ds.u 

0 



;Animations-Ablauf 


00 

ac_CompFlags 

ds.u 1 

;Typ-Bits 

02 

ac_Timer 

ds.u 1 

; Ist-Zeit 

04 

ac_TimeSet 

ds.u 1 

jVorgabe 

06 

ac_NextComp 

ds.l 1 

; "Nachfolger 

0A 

ac_PrevComp 

ds.l 1 

; 'Vorgaenger 

0E 

ac_NextSeq 

ds.l 1 

;dto in 

12 

ac_PrevSeq 

ds.l 1 

; Zeichensequenz 

16 

ac_AnimCRoutine 

ds.l 1 

;"Exit-Routine 









Anhang A4: Datentypen, Strukturen, Offset-Tabellen, Konstanten 295 


1A 

ac_YTrans 

ds .v 

1 

;Anfangsdistanz 

IC 

ac_XTrans 

ds .v 

1 


IE 

ac_HeadOb 

ds.l 

1 

;"AminOb-Structure 

22 

ac_AnimBob 

ds.l 

1 

j"Bob-Structure 

26 

ac_SIZE 

ds .u 

0 



;Animations-Objekt 


00 

ao_NextOb 

ds.l 

1 

;"Nachfolger 

04 

ao_PrevOb 

ds.l 

1 

;"Vorgaenger 

08 

ao_Clock 

ds. 1 

1 

;Aufrufe 

0C 

ao_An01dY 

ds .v 

1 

;Alte Lage 

0E 

ao_An01dX 

ds .w 

1 


10 

ao_AnY 

ds .w 

1 

; Ist 

12 

ao_AnX 

ds.v 

1 


14 

ao_YVel 

ds .v 

1 

;Speed 

16 

ao_XVel 

ds .v 

1 


18 

ao_XAccel 

ds .v 

1 

[Beschleunigung 

1A 

ao_YAccel 

ds .u 

1 


IC 

ao_RingYTrans 

ds.v 

1 

; Inkrements 

IE 

ao_RingXTrans 

ds.v 

1 


20 

ao_AnimORoutine 

ds.l 

1 

;"Routine 

24 

ao_HeadComp 

ds.l 

1 

;"erstes Objekt 

28 

ao AUserExt 

ds .v 

0 


28 

ao_SIZE0F 

ds.v 

0 


00 

dbp_BufY 

ds.v 

1 

[Zvischenpuffer 

02 

dbp_BufX 

ds.v 

1 


04 

dbp_BufPath 

ds. 1 

1 


08 

dbp_BufBuffer 

ds.l 

1 


0C 

dbp_BufPlanes 

ds.l 

1 


10 

dbp_SIZEOF 

ds .v 

0 



;gfxbase 


22 

gb_ActiViev 

ds.l 

1 


26 

gb_copinit 

ds.l 

1 


2A 

gb_cia 

ds.l 

1 


2E 

gb_blitter 

ds.l 

1 


32 

gb_LOFlist 

ds.l 

1 


36 

gb_SHFlist 

ds.l 

1 


3A 

gb_blthd 

ds.l 

1 


3E 

gb_blttl 

ds.l 

1 


42 

gb_b s blthd 

ds.l 

1 


46 

gb_bsblttl 

ds.l 

1 


4A 

gb_vbsrv 

ds ,b 

IS. 

_SIZE 

60 

gb_timsrv 

ds.b 

IS. 

SIZE 

76 

gb_blt srv 

ds. b 

IS* 

SIZE 

8C 

gb_TextFonts 

ds.b 

lh’ 

’SIZE 

9A 

gb_DefaultFont 

ds. 1 

1 


9E 

gbjlodes 

ds.v 

1 
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A0 

gb_VBlank 

ds.b 

1 

AI 

gb_Debug 

ds .b 

1 

A2 

gb_BeamSync 

ds.u 

1 

A4 

gb_system_bplcon0 

ds.u 

1 

A6 

gb_SpriteReserved 

ds. b 

1 

A7 

gb_bytereserved 

ds.b 

1 

A8 

gb_Flags 

ds .w 

1 

AA 

gb_BlitLock 

ds .u 

1 

AC 

gb_BlitNest 

ds.u 

1 

AE 

gb_BlitHaitQ 

ds.b 

LH_SIZE 

BC 

gb_BlitOwner 

ds.l 

1 

C0 

gb_TOF_WaitQ 

ds.b 

LH_SIZE 

CE 

gb_DisplayFlags 

ds .u 

1 

D0 

gb_SimpleSprites 

ds.l 

1 

D4 

gb_MaxDisplayRou 

ds.u 

1 

D6 

gb_reserved 

ds.b 

8 

DE 

gb_SIZE 

ds .u 

0 


OWNBLITTERn equ 

0 



QBOWNERn equ 

1 



QBOWNER equ 

2 



» 

; GFX 




BITSET equ $8000 




BITCLR equ 0 




AGNUS equ 1 




DENISE equ 1 




00 

bm_BytesPerRou 

ds.u 

1 


02 

bin Rous 

ds .u 

1 


04 

bm_Flags 

ds. b 

1 


05 

bm_Depth 

ds. b 

1 


06 

bin Pad 

ds.u 

1 


08 

bm Planes 

ds. b 

32 


28 

bm_SIZEOF 

ds.u 

0 


00 

ra MinX 

ds.u 

1 


02 

ra MinY 

ds.u 

1 


04 

ra MaxX 

ds.u 

1 


06 

ra MaxY 

ds.u 

1 


08 

ra_SIZE0F 

ds.u 

0 


;layers 

• 




00 

Ile env 

ds.b 


52 

34 

lie mem 

ds.b 


LH SIZE 

42 

lie_FreeClipRects ds.l 


1 

46 

lie_blitbuff 

ds.l 


1 
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4A lie_SIZEOF ds.v 0 

LMN_REGION equ -1 


;memory 


memnode_succ ds.l 1 
memnode_pred ds.l 1 
memnode_where ds.l 1 
memnode_how_big ds.l 1 
nemnode SIZEOF ds.w 0 


; Layer Info-Struktur 


00 

ll_top_layer 

ds.l 

1 


04 

li_check_lp 

ds.l 

1 


08 

li_obs 

ds.l 

1 


0C 

li_RP_ReplyPort 

ds.b 

MP_ 

SIZE 

2E 

ll_LockPort 

ds.b 

MP’ 

"SIZE 

50 

ll_Lock 

ds. b 

1 


51 

ll_broadcast 

ds. b 

1 


52 

li_locknest 

ds. b 

1 


55 

ll_pad 

ds.b 

1 


54 

li_Locker 

ds.l 

1 


58 

ll_bytereserved 

ds.b 

2 


5A 

li_wordreserved 

ds. b 

4 


5E 

li_longreserved 

ds.b 

4 


62 

1i_L a Y er I n fo_extra 

ds.l 

1 


66 

li_SIZE0F 

ds.w 

0 


NEWLAYERINFO_CALLED 

equ 1 




;~Layer oben 
;System-Use: 


;rastport 


00 

tr_RasPtr 

ds. 1 

1 

04 

tr_Size 

ds. 1 

1 

08 

tr_SIZE0F 

ds ,v 

0 

00 

gi_sprRsrvd 

ds.b 

1 

01 

gi_Flags 

ds.b 

1 

02 

gi_gelHead 

ds.l 

1 

06 

gi_gelTail 

ds. 1 

1 

0A 

gi_nextLlne 

ds.l 

1 

0E 

gi_lastColor 

ds.l 

1 

12 

gi_collHandler 

ds.l 

1 

16 

gi_leftmost 

ds.w 

1 

18 

gi_rightmost 

ds.w 

1 

1A 

gi_topmost 

ds.w 

1 

IC 

gi_b°ttommost 

ds.w 

1 

IE 

gi_firstBlissObj 

ds. 1 

1 

22 

gi_lastBlissObj 

ds.l 

1 







298 Anhang 


26 gi_SIZEOF ds.u 0 


RPB_FRST_DOT 

equ 


0 

RPF_FRST_DOT 

equ 


1 

RPB_0NE_D0T 

equ 


1 

RPF_0NE_D0T 

equ 


2 

RPB_DBUFFER 

equ 


2 

RPF_DBUFFER 

equ 


4 

RPB_AREAOUTLINE 

equ 


3 

RPF_AREAOUTLINE 

equ 


8 

RPB_NOCROSSFILL 

equ 


5 

RPF_NOCROSSFILL 

equ 


32 

RP_JAM1 

equ 

0 


RP_JAM2 

equ 

1 


RP_COHPLEMENT 

equ 

2 


RP_INVERSVID 

equ 

4 


RPB_TXSCALE 

equ 


0 

RPF_TXSCALE 

equ 


1 


;RastPort-Struktur 


00 

rp_Layer 

ds. 1 

04 

rp_BitMap 

ds.l 

08 

rp_AreaPtrn 

ds.l 

0C 

rp_TmpRas 

ds.l 

10 

rp_AreaInfo 

ds.l 

14 

rp_GelsInfo 

ds.l 

18 

rp_Mask 

ds.b 

19 

rp_FgPen 

ds.b 

1A 

rp_BgPen 

ds.b 

1B 

rp_A0LPen 

ds. b 

IC 

rp_DrawMode 

ds.b 

ID 

rp_AreaPtSz 

ds.b 

IE 

rp_Dummy 

ds.b 

1F 

rp_linpatent 

ds.b 

20 

rp_Flags 

ds .v 

22 

rp_LinePtrn 

ds.u 

24 

rp_cp_x 

ds.u 

26 

rp_cp_y 

ds .u 

28 

rp_minterms 

ds.b 

30 

rp_PenWidth 

ds.u 

32 

rp_PenHeight 

ds.u 

34 

rp_Font 

ds. 1 

38 

rp_AlgoStyle 

ds. b 

39 

rp_TxFlags 

ds.b 

3A 

rp_TxHeight 

ds.u 

3C 

rp_TxWidth 

ds .u 

3E 

rp_TxBaseline 

ds .w 

40 

rp_TxSpacing 

ds ,w 

42 

rp_RP_User 

ds.l 


1 ;“Layer 

1 :"Bitmap 

1 ;"Fuellmuster 

1 j"Zwischenpuffer 

1 ;"Info-Struktur 

1 ;"Gellnfo-Struktur 

1 ;Schreibmaske 

1 ;Vordergrund-Pen 

1 ;Hintergrund-Pen 

1 ;Flood-Pen 

1 ;Zeichenmodus 

1 iWorte Flood-Muster 

1 ;Dummy 

1 ;Poly-Count 

1 ;System-Use 

1 ;Linienmuster 

1 ;Pen-Position 

1 

8 ;Blitter-Control 

1 ;Groesse Pen 

1 

1 ;"Font 

1 jText-Parms: 

1 

1 

1 

1 

1 

1 ;"Reply-Port 
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46 

rp vordreserved 

ds.b 

14 

54 

rp_longreserved 

ds. b 

8 

5C 

rp_reserved 

ds. b 

8 

64 

rp_SIZE0F 

ds.v 

0 

00 

ai_VctrTbl 

ds.l 

1 

04 

ai_VctrPtr 

ds. 1 

,1 

08 

ai_FlagTbl 

ds.l 

1 

0C 

ai_FlagPtr 

ds. 1 

1 

10 

ai_Count 

ds.v 

1 

12 

ai_MaxCount 

ds.u 

1 

14 

ai_FirstX 

ds .v 

1 

16 

ai_FirstY 

ds.v 

1 

18 

ai_SIZEOF 

ds.v 

0 

0NE_ 

DOTn equ 

1 


0NE_ 

DOT equ 

$2 


FRST 

_DOTn equ 

0 


FRST 

_DOT equ 

1 


;REGI0NS 




00 

rg_bounds 

ds.b 

ra_SIZE0F 

08 

r g_R e gionRe c tangle 

ds.l 

1 

0C 

rg SIZEOF 

ds.v 

0 


ds.l 1 

ds.l 1 

ds.b ra_SIZEOF 

ds. v 0 

;Sprites 


00 

ss_posctldata 

ds.l 

1 

"'Daten Sprite 

04 

ss_height 

ds.v 

1 

Höhe 

06 

ss_x 

ds.v 

1 

aktuelle Position X 

08 

ss_y 

ds.v 

1 

Y 

0A 

0C 

ss_num 
ss SIZEOF 

ds.v 

ds .v 

1 

0 

Sprite-Nummer (0..7) 


;Text 


FS_NORMAL equ 0 
FSB_EXTENDED equ 3 
FSF_EXTENDED equ 8 
FSB_ITALIC equ 2 
FSF_ITALIC equ 4 
FSB_BOLD equ 1 
FSF_BOLD equ 2 


00 rr_Next 
04 rr_Prev 
08 rr_bounds 
10 rr SIZEOF 
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FSB_ 

UNDERLINED equ 

0 


fsf' 

JJNDERLINED equ 

1 


FPB 

.ROHFONT 

equ 

0 


fpf’ 

[rohfont 

equ 

1 


FPB_ 

DISKFONT 

equ 

1 


FPF_ 

DISKFONT 

equ 

2 


fpb’ 

[revpath 

equ 

2 


FPF_ 

REVPATH 

equ 

4 


FPB 

TALLDOT 

equ 

5 


FPF_ 

.TALLDOT 

equ 

8 


FPB_ 

.WIDEDOT 

equ 

4 


FPF. 

WIDEDOT 

equ 

16 


fpb’ 

"proportional 

equ 

5 


FPF. 

'proportional 

equ 

52 


FPB. 

’designed 

equ 

6 


FPF 

.DESIGNED 

equ 

64 


FPB. 

REMOVED 

equ 

7 


fpf’ 

’removed 

equ 

128 


00 

ta_Name 


ds.l 

1 

04 

ta_YSize 


ds.w 

1 

06 

ta_Style 


ds.b 

1 

07 

ta_Flags 


ds.b 

1 

08 

ta_SIZEOF 


ds .v 

0 

14 

tf_YSize 


ds.w 

1 

16 

tf_Style 


ds.b 

1 

17 

tf_Flags 


ds.b 

1 

18 

tf_XSize 


ds .v 

1 

1A 

tf_Baseline 


ds.w 

1 

IC 

tf_BoldSmear 

ds.w 

1 

IE 

tf Accessors 

ds.w 

1 

20 

tf_LoChar 


ds. b 

1 

21 

tf_HiChar 


ds.b 

1 

22 

tf_CharData 


ds.l 

1 

26 

tf_Hodulo 


ds.w 

1 

28 

tf_CharLoc 


ds.l 

1 

2C 

tf_CharSpace 

ds. 1 

1 

50 

tf CharKern 


ds.l 

1 

54 

tf SIZEOF 


ds.w 

0 


; View 


V_PFBA 

equ 

$40 

V_DUALPF 

equ 

$400 

V_HIRES 

equ 

$8000 

V_LAC 

equ 

4 

V_HAM 

equ 

$800 

V_SPRITES 

equ 

$4000 
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GENL0CK_VIDE0 equ 2 


cm_Flags 
cm_Type 
cm_Count 
cm_ColorTable 
cm SIZEOF 


ds.b 1 

ds.b 1 

ds.u 1 

ds.l 1 

ds .u 0 


;VieuPort-Struktur 


00 

vp_Next 

ds.l 

1 

04 

vp_ColorMap 

dS . 1 

1 

08 

vp_DspIns 

ds.l 

1 

0C 

vp_SprIns 

ds.l 

1 

10 

vp_ClrIns 

ds.l 

1 

14 

vp_UCopIns 

ds.l 

1 

18 

vp_DWldth 

ds .v 

1 

1A 

vp_DHelght 

ds .v 

1 

IC 

vp_DxOffset 

ds. v 

1 

IE 

vp_DyOffset 

ds.v 

1 

20 

vp_Modes 

ds .v 

1 

22 

vp_reserved 

ds .v 

1 

24 

vp_RasInfo 

ds.l 

1 

28 

vp_SIZE0F 

ds.u 

0 

00 

v_ViewPort 

ds.l 

1 

04 

v_LOFCprList 

ds.l 

1 

08 

v_SHFCprList 

ds. 1 

1 

0C 

v_DyOffset 

ds.u 

1 

0E 

v_DxOffset 

ds.u 

1 

10 

v_Modes 

ds.u 

1 

12 

v_SIZE0F 

ds .v 

0 

00 

cp_collPtrs 

ds. 1 

1 

04 

cp_SIZE0F 

ds .v 

0 

00 

rl_Next 

ds.l 

1 

04 

ri_BitMap 

ds.l 

1 

08 

rl_RxOffset 

ds.u 

1 

0A 

ri_RyOffset 

ds .u 

1 

0C 

ri_SIZE0F 

ds.u 

0 


A 4.5 Devices 

;importiert von exec: 


CMD_NONSTD 

equ 

9 

IOSIZE 

equ 

$20 

IOSTD_SIZE 

equ 

$30 

LN_SIZE 

equ 

$0E 

MN_SIZE 

equ 

$14 


“Nachfolger 


;Breite 

;Hoehe 
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TV_SIZE 

LIB_SIZE 

MP_SIZE 

pf_SIZE0F 

TC_SIZE 

LN_PRI 

equ 

equ 

equ 

equ 

equ 

equ 

8 

$22 

$22 

$E8 

$5C 

9 


;Audio 




ADHARD_CHANNELS 

equ 

4 


ADALLOC MINPREC 

equ 

-128 


ADALLOC_MAXPREC 

equ 

127 


CMD_NONSTD 

equ 

9 


ADCHD_FREE 

equ 

9 


ADCMD_SETPREC 

equ 

10 


ADCMD_FINISH 

equ 

11 


ADCMD PERVOL 

equ 

12 


ADCMD LOCK 

equ 

13 


ADCMD_WAITCYCLE 

equ 

14 


ADCMDB NOUNIT 

equ 

5 


ADCMDF NOUNIT 

equ 

32 


ADCMD_ALLOCATE 

equ 

ADCMDF_ 

NOUN 

ADIOB PERVOL 


equ 

4 

ADIOF_PERVOL 


equ 

16 

ADIOB SYNCCYCLE 


equ 

5 

ADIOF SYNCCYCLE 


equ 

32 

ADIOB NOWAIT 


equ 

6 

ADIOF NOWAIT 


equ 

64 

ADIOB URITEMESSAGE 

equ 

7 

ADIOF_WRITEMESSAGE 

equ 

128 

ADIOERR NOALLOCATION 

equ 

-10 

ADIOERR ALLOCFAILED 

equ 

-11 

ADIOERR_CHANNELSTOLEN 

equ 

-12 


20 

ioa_AllocKey 

ds .u 

1 

22 

ioa_Data 

ds.l 

1 

26 

ioa_Length 

ds.l 

1 

2A 

ioa_Period 

ds .v 

1 

2C 

ioa_Volume 

ds . v 

1 

2E 

ioa_Cycles 

ds .v 

1 

30 

ioa_WriteHsg 

ds. b 

MN SIZE 


ioa SIZEOF 

equ 

$44 
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;bootblock 

• 




00 

BB ID 

ds. b 

4 

04 

BB CHKSUM 

ds.l 

1 

08 

BB DOSBLOCK 

ds. 1 

1 


BB ENTRY 

equ 

$0C 


BB_SIZE 

equ 

$0C 

BOOTSECTS 

equ 2 



BBNAME DOS 

equ 444F5300 

; 'DOS 

'<<8 

BBNAME_KICK 

equ 4B49434B 

; ’KICK’ 

;CLIPBOARD 

• 




CBERR_OBSOLETEID equ 

1 


00 

cu Node 

ds.b 

LN SIZE 

0E 

cu UnitNum 

ds.l 

1 

00 

io_Message 

ds. b 

MN_SIZE 

14 

io Device 

ds. 1 

1 

18 

io Unit 

ds.l 

1 

IC 

io Command 

ds .v 

1 

IE 

io_Flags 

ds. b 

1 

1F 

io Error 

ds. b 

1 

20 

io Actual 

ds.l 

1 

24 

io_Length 

ds.l 

1 

28 

io Data 

ds.l 

1 

2C 

io Offset 

ds.l 

1 

30 

io_ClipID 

ds.l 

1 


iocr_SIZEOF 

equ 

$34 

PRIMARY_CLIP 

equ 0 



00 

sm Msg 

ds.b 

MN SIZE 

14 

sm Unit 

ds .v 

1 

16 

sm_ClipID 

ds.l 

1 


satisfyMsg_SIZEOF equ 

$1A 

;C0NS0LE 

• 




CD ASKKEYMAP 

equ 9 



CD_SETKEYMAP 

equ 10 



SGR PRIMARY 

equ 0 



SGR_B0LD 

equ 1 



SGR_ITALIC 

equ 3 



SGR_UNDERSCORE 

equ 4 
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SGR_NEGATIVE equ 7 

SGR_BLACK equ 30 

SGR_RED equ 31 

SGR_GREEN equ 32 

SGR_YELL0W equ 33 

SGR_BLUE equ 34 

SGR_MAGENTA equ 35 

SGR_CYAN equ 36 

SGR_WHITE equ 37 

SGR_DEFAULT equ 39 

SGR_BLACKBG equ 40 

SGR_REDBG equ 41 

SGR_GREENBG equ 42 

SGR_YELL0WBG equ 43 

SGR_BLUEBG equ 44 

SGR_MAGENTABG equ 45 

SGR_CYANBG equ 46 

SGR_WHITEBG equ 47 

SGR_DEFAULTBG equ 49 

SGR_CLR0 equ 30 

SGR_CLR1 equ 31 

SGR_CLR2 equ 32 

SGR_CLR3 equ 33 

SGR_CLR4 equ 34 

SGR_CLR5 equ 35 

SGR_CLR6 equ 36 

SGR_CLR7 equ 37 

SGR_CLR0BG equ 40 

SGR_CLR1BG equ 41 

SGR_CLR2BG equ 42 

SGR_CLR3BG equ 43 

SGR_CLR4BG equ 44 

SGR_CLR5BG equ 45 

SGR_CLR6BG equ 46 

SGR_CLR7BG equ 47 

DSR_CPR equ 6 

CTC_HSETTAB equ 0 

CTC_HCLRTAB equ 2 

CTC_HCLRTABSALL equ 5 

TBC_HCLRTAB equ 0 

TBC_HCLRTABSALL equ 3 

;gameport 


GPD_READEVENT 

equ 

9 

GPD_ASKGTYPE 

equ 

10 

GPD_SETCTYPE 

equ 

11 

GPD_ASKTRIGGER 

equ 

12 
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GPD_SETTRIGGER equ 
GPTB_D0WNKEYS equ 
GPTF_D0WNKEYS equ 
GPTB_UPKEYS equ 
GPTF_UPKEYS ' equ 


13 

0 

1 

1 

2 


00 

gpt_Keys 

ds .w 

1 

02 

gpt_Timeout 

ds .w 

1 

04 

gpt_XDelta 

ds.u 

1 

06 

gpt YDelta 

ds .u 

1 


gpt_SIZEOF 

equ 

8 


GPCT_ALLOCATED 
GPCT_NOCONTROLLER 
GPCT_M0USE 
GPCT_RELJOYSTICK 
GPCT_ABSJOYSTICK 
GPDERR SETCTYPE 


equ -1 
equ 0 
equ 1 
equ 2 
equ 3 
equ 1 


;input 


IND ADDHANDLER 

equ 


9 

IND REMHANDLER 

equ 


10 

IND WRITEEVENT 

equ 


11 

IND SETTHRESH 

equ 


12 

IND SETPERIOD 

equ 


13 

IND SETMPORT 

equ 


14 

IND SETHTYPE 

equ 


15 

IND_SETMTRIG 

equ 


16 

;INPUTEVENT 




i 

IECLASS NULL 


equ 

0 

IECLASS RAWKEY 


equ 

1 

IECLASS RAWMOUSE 


equ 

2 

IECLASS EVENT 


equ 

3 

IECLASS POINTERPOS 


equ 

4 

IECLASS TIHER 


equ 

6 

IECLASS GADGETDOWN 


equ 

7 

IECLASS GADGETUP 


equ 

8 

IECLASS_RequESTER 


equ 

9 

IECLASS MENULIST 


equ 

10 

IECLASS CLOSEWINDOW 


equ 

11 

IECLASS SIZEWINDOW 


equ 

12 

IECLASS REFRESHWINDOW 

equ 

13 

IECLASS NEWPREFS 


equ 

14 

IECLASS DISKREMOVED 


equ 

15 

IECLASS DISKINSERTED 

equ 

16 

IECLASS ACTIVEWINDOW 

equ 

17 

IECLASS_INACTIVEWINDOW 

equ 

18 






306 Anhang 


IECLASS_MAX 

equ 

$12 


I ECODE_UP_PREF IX 

equ 

$80 


IECODEB_UP_PREFIX 

equ 

7 


IE CODE_KEY_CD_FIRST 

equ 

0 


IECODE_KEY_CD_LAST 

equ 

$77 


IECODE_COMM CD FIRST 

equ 

$78 


IECODE_COHH_CODE_LAST 

equ 

$7F 


IECODE_C0_FIRST 

equ 

$00 


IECODE_C0_LAST 

equ 

$1F 


IEC0DE_ASCII_FIRST 

equ 

$20 


IECODE_ASCII_LAST 

equ 

$7E 


IECODE_ASCII_DEL 

equ 

$7F 


IECODE_C1_FIRST 

equ 

$80 


IECODE_C1_LAST 

equ 

$9F 


IEC0DE_LATIN1_FIRST 

equ 

$A0 


IEC0DE_LATIN1_LAST 

equ 

$FF 


IECODE_LBUTTON 

equ 

$68 


IECODE_RBUTTON 

equ 

$69 


IECODE_MBUTTON 

equ 

$6A 


IECODE_NOBUTTON 

equ 

$FF 


IECODE_NEWACTIVE 

equ 

1 


IECODE_REQSET 

equ 

1 


IECODE_REQCLEAR 

equ 

0 


IequALIFIER_LSHIFT 


equ 

i 

IequALIFIERB_LSHIFT 


equ 

0 

IequALIFIER_RSHIFT 


equ 

2 

IequALIFIERB_RSHIFT 


equ 

1 

IequALIFIER_CAPSLOCK 


equ 

4 

IequALIFIERB_CAPSLOCK 


equ 

2 

IequALIFIER_CONTROL 


equ 

8 

IequALIFIERB_CONTROL 


equ 

3 

IequALIFIERJLALT 


equ 

16 

IequALIFIERB_LALT 


equ 

4 

IequALIFIER_RALT 


equ 

32 

IequALIFIERB_RALT 


equ 

5 

IequALIFIER_LCOMMAND 


equ 

64 

IequALIFIERB_LCOMMAND 


equ 

6 

IequALIFIER_RCOMMAND 


equ 

128 

IequALIFIERB_RCOMMAND 


equ 

7 

IequALIFIER_NUMERICPAD 


equ 

$0100 

IequALIFIERB_NUMERICPAD 


equ 

8 

IequALIFIER_REPEAT 


equ 

$0200 

IequALIFIERB_REPEAT 


equ 

9 

IequALIFIER_INTERRUPT 


equ 

$0400 

IequALIFIERB_INTERRUPT 


equ 

10 

IequALIFIER_MULTIBROADCAST 

equ 

$0800 

IequALIFIERB_MULTIBROADCAST 

equ 

11 

IequALIFIER_LBUTTON 


equ 

$1000 




Anhang A4: Datentypen, Strukturen, Offset-Tabellen, Konstanten 307 


IequALIFIERB 

_LBUTT0N 

equ 12 

IequALIFIER 

RBUTTON 

equ $2000 

IequALIFIERB 

_RBUTTON 

equ 13 

IequALIFIER 

MBUTTON 

equ $4000 

IequALIFIERB 

_MBUTT0N 

equ 14 

IequALIFIER_ 

RELATIVEMOUSE 

equ $8000 

IequALIFIERB 

_RELATIVEMOUSE 

equ 15 

00 

ie NextEvent 

ds.l 1 

04 

ie Class 

ds.b 1 

05 

ie SubCIass 

ds.b 1 

06 

ie Code 

ds .u 1 

08 

ie Qualifier 

ds .v 1 


ie EventAddress equ $0A 

0A 

ie X 

ds. v 1 

0c 

ie_Y 

ds .v 1 

0E 

ie TimeStamp 

ds.b TV_SIZE 

16 

ie_SIZE0F 

ds .v 0 

;KEYBOARD 



KBD READEVENT equ 

9 

KBD READMATRIX equ 

10 

KBD ADDRESETHANDLER equ 

11 

KBD REMRESETHANDLER equ 

12 

KBD_RESETHANDLERDONE equ 

13 

;Keyroap 



00 

km_LoKeyMapTypes ds.l 1 

04 

km_LoKeyMap 

ds.l 1 

08 

km LoCapsable 

ds.l 1 

0C 

km_LoRepeatable ds.l 1 

10 

km HiKeyMapTypes ds.l 1 

14 

km_HiKeyMap 

ds.l 1 

18 

km_HiCapsable 

ds.l 1 

IC 

km HiRepeatable ds.l 1 


km_SIZE0F 

equ $20 

KCB_N0P 

equ 7 


KCF_N0P 

equ $80 


KC_N0QUAL 

equ 0 


KC_VANILLA 

equ 7 


KCF SHIFT 

equ 1 


KCF_ALT 

equ 2 


KCB CONTROL 

equ 2 


KCF_CONTROL 

equ 4 


KCB_DOWNUP 

equ 3 
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KCF_DOWNUP 

equ 8 



KCB STRING 

equ 6 



KCB_STRING 

equ 64 



;Narrator 




DEFPITCK 

equ 

110 


DEFRATE 

equ 

150 


DEFVOL 

equ 

64 


DEFFREQ 

equ 

22200 

NATURALF0 

equ 

0 


ROBOTICF0 

equ 

1 


MALE 

equ 

0 


FEMALE 

equ 

1 


DEFSEX 

equ 

MALE 


DEFMODE 

equ 

NATURALF0 

MINRATE 

equ 

40 


MAXRATE 

equ 

400 


MINPITCH 

equ 

65 


MAXPITCH 

equ 

320 


MINFREQ 

equ 

5000 


MAXFREQ 

equ 

28000 

MINVOL 

equ 

0 


MAXVOL 

equ 

64 


ND NotUsed 

equ 

-1 


ND_NoMem 

equ 

-2 


ND_NoAudLib 

equ 

-3 


ND_MakeBad 

equ 

-4 


NDJJnitErr 

equ 

-5 


ND_CantAlloc 

equ 

-6 


NDJJnimpl 

equ 

-7 


ND_NoWrite 

equ 

-8 


ND_Expunged 

equ 

-9 


ND_PhonErr 

equ 

-20 


ND_RateErr 

equ 

-21 


ND PitchErr 

equ 

-22 


ND_SexErr 

equ 

-23 


ND_ModeErr 

equ 

-24 


ND_FreqErr 

equ 

-25 


ND_VolErr 

equ 

-26 


30 

NDI RATE 


ds .v 

32 

NDI PITCH 


ds .v 

34 

NDI MODE 


ds .v 

36 

NDI SEX 


ds .v 

38 

NDI CHMASKS 

ds.l 

3C 

NDI NUMMASKS 

ds.v 

3E 

NDI_VOLUME 


ds .v 
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40 

NDI SAMPFREQ 

ds .v 

1 

42 

NDI_M0UTHS 

ds.b 

1 

45 

NDI_CHANMASK 

ds. b 

1 

44 

NDI NUMCHAN 

ds. b 

1 

45 

NDI_PAD 

ds.b 

1 


NDI_SIZE 

equ 

$46 

46 

MRB_WIDTH 

ds.b 

1 

47 

HRB_HEIGHT 

ds. b 

1 

48 

NRB_SHAPE 

ds. b 

1 

49 

HRB_PAD 

ds.b 

1 

4A 

MRB_SIZE 

equ 

$4A 


;PARALLEL 


ParErr_DevBusy 

equ 

i 


ParErr_BufTooBig 

equ 

2 


ParErr_InvParara 

equ 

5 


ParErr_LineErr 

equ 

4 


ParErr_NotOpen 

equ 

5 


ParErr_PortReset 

equ 

6 


ParErr_InitErr 

equ 

7 


PDCMD_QUERY 

equ 

CMD_ 

NONSTD 

PDCMD_SETPARAMS 

equ 

cmd" 

NONSTD+1 

Par_DEVFINISH 

equ 

10 



PARB SHARED 

equ 

5 

PARF_SHARED 

equ 

52 

PARB_RAD_B00GIE 

equ 

5 

PARF_RAD_BOOGIE 

equ 

8 

PARB_EOFMODE 

equ 

1 

PARF_EOFMODE 

equ 

2 

IOPARB_QUEUED 

equ 

6 

IOPARF_QUEUED 

equ 

128 

IOPARB_ABORT 

equ 

5 

IOPARF_ABORT 

equ 

52 

IOPARB_ACTIVE 

equ 

4 

IOPARF_ACTIVE 

equ 

16 

IOPTB_RWDIR 

equ 

5 

IOPTF_RWDIR 

equ 

8 

IOPTB_PBUSY 

equ 

2 

IOPTF_PBUSY 

equ 

4 

I0PTB_PAPER0UT 

equ 

1 

I0PTF_PAPER0UT 

equ 

2 

IOPTB_PSEL 

equ 

0 

IOPTF_PSEL 

equ 

1 


00 


PTERMARRAY 0 


ds. 1 


1 
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1 

0 

1 

1 

1 

PTERMARRAY_SIZE 

$3E 


SER_DEVFINISH 

equ 

n 

SERB_XDISABLED 

equ 

7 

SERF_XDISABLED 

equ 

128 

SERB_E0FM0DE 

equ 

6 

SERF_E0FM0DE 

equ 

64 

SERB_SHARED 

equ 

5 

SERF_SHARED 

equ 

32 

SERB_RAD_BOOGIE 

equ 

4 

SERF_RAD_B00GIE 

equ 

16 

SERB_QUEUEDBRK 

equ 

3 

SERF_QUEUEDBRK 

equ 

8 

SERB_7WIRE 

equ 

2 

SERF_7HIRE 

equ 

4 

SERB_PARTY_0DD 

equ 

1 

SERF_PARTY_ODD 

equ 

2 

SERB_PARTY_0N 

equ 

0 

SERF_PARTY_0N 

equ 

1 

I0SERB_QUEUED 

equ 

6 

I0SERF_QUEUED 

equ 

64 

I0SERB_AB0RT 

equ 

5 

I0SERF_AB0RT 

equ 

32 

I0SERB_ACTIVE 

equ 

4 

IOSERF_ACTIVE 

equ 

16 

IOSTB_XOFFREAD 

equ 

4 

IOSTF_XOFFREAD 

equ 

16 

I0STB_X0FFWRITE 

equ 

3 

IOSTFJCOFFURITE 

equ 

8 

IOSTB_READBREAK 

equ 

2 

IOSTF_READBREAK 

equ 

4 

I0STB_WR0TEBREAK equ 

1 

I0STF_WR0TEBREAK 

[ equ 

2 


04 

PTERMARRAY 1 

ds.l 

08 

PTERMARRAY_S IZE 

ds .v 

30 

10 PEXTFLAGS 

ds.l 

34 

10 PARSTATUS 

ds.b 

35 

10 PARFLAGS 

ds .b 

36 

10 PTERMARRAY 

ds.b 

3E 

IOEXTPar, 

SIZE 

equ 

; Serial 

l 




SER CTL 

equ 

$11130000 

SER_DBAUD 

equ 

9600 


SDCMD_QUERY 

equ 

9 


SDCMD BREAK 

equ 

10 


SDCMD_SETPARAMS 

equ 

CMD_N0NSTD+2 
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IOSTB_OVERRUN equ 0 

IOSTFJDVERRUN equ 1 


00 


TERMARRAY_0 

ds.l 

1 

04 


TERMARRAY_1 

ds.l 

1 



TERMARRAY_SIZE 

equ 

8 

30 


IO_CTLCHAR 

ds. 1 

1 

34 


IO_RBUFLEN 

ds.l 

1 

38 


IO_EXTFLAGS 

ds.l 

1 

3C 


I0_BAUD 

ds.l 

1 

40 


IO_BRKTIME 

ds.l 

1 

44 


10 TERMARRAY 

ds.b 

TERMARRAY_SIZE 

4C 


IO_READLEN 

ds. b 

1 

4D 


IO_WRITELEN 

ds. b 

1 

4E 


I0_ST0PBITS 

ds.b 

1 

4F 


IO_SERFLAGS 

ds.b 

1 

50 


10 STATUS 

ds.w 

1 



IOEXTSER_SIZE 

equ 

$52 

SerErr_ 

DevBusy 

equ 

1 


SerErr_ 

BaudMismatch equ 

2 


SerErr_ 

InvBaud 

equ 

3 


SerErr_ 

BufErr 

equ 

4 


SerErr_ 

_InvParau 

i equ 

5 


SerErr_ 

JLineErr 

equ 

6 


SerErr_ 

NotOpen 

equ 

7 


SerErr_ 

PortReset equ 

8 


SerErr_ 

ParityErr equ 

9 


SerErr_ 

_InitErr 

equ 

10 


SerErr_ 

_TimerErr 

equ 

11 


SerErr_ 

BufOverflow equ 

12 


SerErr_ 

NoDSR 

equ 

13 


SerErr_ 

’NoCTS 

equ 

14 


SerErr_ 

DetectedBreak equ 

15 



;timer 


UNIT_MICROHZ 

UNIT_VBLANK 

00 

04 


20 

28 

TR_ADDRequEST 
TR_GETSYSTIME 
TR SETSYSTIME 


equ 0 
equ 1 

TV_SECS 

TV_MICR0 

TV_SIZE 

I0TV_TIME 

I0TV_SIZE 

equ 9 

equ 10 

equ 11 


ds.l 1 
ds.l 1 
equ 8 

ds.b TV_SIZE 
equ $20 





312 Anhang 


PRD_RAUHRITE equ 9 

PRD_PRTCOMMAND equ 10 

PRD_DUMPRPORT equ 11 


aRIS 

equ 

0 

aRIN 

equ 

1 

alND 

equ 

2 

aNEL 

equ 

3 

aRI 

equ 

4 

aSGR0 

equ 

5 

aSGR3 

equ 

6 

aSGR23 

equ 

7 

aSGR4 

equ 

8 

aSGR24 

equ 

9 

aSGRI 

equ 

10 

aSGR22 

equ 

11 

aSFC 

equ 

12 

aSBC 

equ 

13 

aSHORP0 

equ 

14 

aSH0RP2 

equ 

15 

aSHORPI 

equ 

16 

aSHORP4 

equ 

17 

aSHORP3 

equ 

18 

aSH0RP6 

equ 

19 

aSHORP5 

equ 

20 

aDEN6 

equ 

21 

aDEN5 

equ 

22 

aDEN4 

equ 

23 

aDEN3 

equ 

24 

aDEN2 

equ 

25 

aDENI 

equ 

26 

aSUS2 

equ 

27 

aSUSI 

equ 

28 

aSUS4 

equ 

29 

aSUS3 

equ 

30 

aSUS0 

equ 

31 

aPLU 

equ 

32 

aPLD 

equ 

33 

aFNT0 

equ 

34 

aFNTI 

equ 

35 

aFNT2 

equ 

36 

aFNT3 

equ 

37 

aFNT4 

equ 

38 

aFNT5 

equ 

39 

aFNT6 

equ 

40 

aFNT7 

equ 

41 

aFNT8 

equ 

42 
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aFNT9 equ 45 
aFNT10 equ 44 

aPR0P2 equ 45 
aPROPI equ 46 
aPROP0 equ 47 
aTSS equ 48 

aJFY5 equ 49 
aJFY7 equ 50 
aJFY6 equ 51 
aJFY0 equ 52 
aJFY2 equ 55 
aJFY5 equ 54 

aVERP0 equ 55 
aVERPI equ 56 
aSLPP equ 57 
aPERF equ 58 
aPERF0 equ 59 


aLMS 

equ 

60 



aRMS 

equ 

61 



aTMS 

equ 

62 



aBMS 

equ 

65 



aSTBH 

equ 

64 



aSLRH 

equ 

65 



aCAM 

equ 

66 



aHTS 

equ 

67 



aVTS 

equ 

68 



aTBC0 

equ 

69 



aTBC5 

equ 

70 



aTBCI 

equ 

71 



aTBC4 

equ 

72 



aTBCALL 

equ 

75 



aTBSALL 

equ 

74 



aEXTEND 

equ 

75 



20 


io_PrtCommand 

ds .v 

1 

22 


io_Parm0 

ds. b 

1 

25 


io_Parm1 

ds. b 

1 

24 


lo_Parm2 

ds. b 

1 

25 


io_Parm5 

ds.b 

1 



iopcr_SIZEOF 

equ 

$26 

20 


io RastPort 

ds.l 

1 

24 


io_ColorHap 

ds.l 

1 

28 


io_Modes 

ds.l 

1 

2C 


io_SrcX 

ds .v 

1 

2E 


io_SrcY 

ds .v 

1 

50 


io SrcWidth 

ds .v 

1 
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32 

io SrcHeight 

ds .v 

1 

34 

io DestCols 

ds.l 

1 

38 

io DestRovs 

ds.l 

1 

3C 

io Special 

ds ,u 

1 


iodrpr_SIZEOF 

equ 

$3E 

SPECIAL MILCOLS equ 

i 


SPECIAL MILROWS equ 

2 


SPECIAL FULLCOLS equ 

4 


SPECIAL FULLROWS equ 

8 


SPECIAL FRACCOLS equ 

16 


SPECIAL_FRACROWS equ 

32 


22 

dd Segment 

ds.l 

1 

26 

dd ExecBase 

ds.l 

1 

2A 

dd CmdVectors 

ds.l 

1 

2E 

dd CmdBytes 

ds.l 

1 

32 

dd NumCommands 

ds .v 

1 


dd_SIZEOF 

equ 

$34 

du_Flags 

equ LN_PRI 



IOB_QUEUED 

equ 4 



IOF_QUEUED 

equ 16 



IOB_CURRENT 

equ 5 



IOF_CURRENT 

equ 32 



IOB SERVICING 

equ 6 



IOF SERVICING 

equ 64 



IOB_DONE 

equ 7 



IOF_DONE 

equ 128 



DUB_STOPPED 

equ 0 



DUF_STOPPED 

equ 10 



P_PRIORITY 

equ 0 



P_STKSIZE- 

equ $800 



PB_IOR0 

equ 0 



PF_IOR0 

equ 1 



PBIOR1 

equ 1 



PF_IOR1 

equ 2 



PB EXPUNGED 

equ 7 



PF_EXPUNGED 

equ 128 



34 

pd Unit 

ds.b 

MP SIZE 

56 

pd_PrinterSegment ds.l 

1 

5A 

pd_PrinterType 

ds .v 

1 

5C 

pd_SegmentData 

ds.l 

1 

60 

pd PrintBuf 

ds.l 

1 

64 

pd PWrite 

ds.l 

1 

68 

pd_PBothReady 

ds.l 

1 
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PPCB GFX 

equ 0 



PPCFJ3FX 

equ 1 



PPCB_COLOR 

equ 1 



PPCF_COLOR 

equ 2 



PPC_BWALPHA 

equ 0 



PPC_BWGFX 

equ 1 



PPC_COLORGFX 

equ 5 



PCC_BH 

equ 1 



PCC_YMC 

equ 2 



PCC_YMC_BU 

equ 5 



PCC_YMCB 

equ 4 



00 

ped_PrinterName 

ds.l 

1 

04 

ped_Init 

ds.l 

1 

08 

ped_Expunge 

ds.l 

1 

0C 

ped_Open 

ds.l 

1 

10 

ped_Close 

ds.l 

1 

14 

ped_PrinterClass 

ds ,b 

1 

15 

ped_ColorClass 

ds .b 

1 

16 

ped_MaxColunms 

ds. b 

1 

17 

ped NumCharSets 

ds. b 

1 

18 

ped_NumRovs 

ds .w 

1 

1A 

ped_MaxXDots 

ds.l 

1 

IE 

ped_MaxYDots 

ds.l 

1 

22 

ped_XDotsInch 

ds .v 

1 

24 

ped_YDotsInch 

ds .v 

1 

26 

ped_Commands 

ds.l 

1 

2A 

ped_DoSpecial 

ds.l 

1 

2E 

ped_Render 

ds. 1 

1 

52 

ped_TimeoutSecs 

ds.l 

1 


ped_SIZEOF 

equ 

$56 

00 

ps_NextSegment 

ds.l 

1 

04 

ps_runAlert 

ds. 1 

1 

08 

ps_Version 

ds . v 

1 

0A 

ps_Revision 

ds.v 

1 


ps_PED 

equ 

$0C 


SPECIAL_ASPECT 

equ 

$80 

SPECIAL_DENSITYMASK 

equ 

$F00 

SPECIAL_DENSITY1 

equ 

$100 

SPECIAL_DENSITY2 

equ 

$200 

SPECIAL_DENSITY5 

equ 

$500 

SPECIAL_DENSITY4 

equ 

$400 

PDERR_CANCEL 

equ 

1 

PDERR_NOTGRAPHICS 

equ 

2 

PDERR_INVERTHAM 

equ 

5 

PDERR_BADDIMENS ION 

equ 

4 

PDERR_DIMENSIONOVFLOW 

equ 

5 
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PDERR_INTERNALMEMORY equ 6 
PDERR_BUFFERMEMORY equ 7 

;TRACKDISK 


NUMCYLS equ 80 

MAXCYLS equ NUMCYLS+20 

NUMSECS equ 11 

NUMHEADS equ 2 

MAXRETRY equ 10 

NUMTRACKS equ NUMCYLS»NUMHEADS 

NUMUNITS equ 4 

TD_SECTOR equ 512 

TD_SECSHIFT equ 9 

TDB_EXTCOM equ 15 

TDF_EXTCOM equ $8000 

;Commands 

TD_MOTOR equ 9 

TD_SEEK equ 10 

TD_FORMAT equ 11 

TD_REMOVE equ 12 

TD_CHANGENUM equ 15 

TD_CHANGESTATE equ 14 

TD_PROTSTATUS equ 15 

TD_LASTCOMM equ 15 

;Extended Commands (mit extendedt IORequest-Block) 

ETD_WRITE equ 5 

ETD_READ equ 2 

ETD_M0T0R equ 9 

ETD_SEEK equ 10 

ETD_FORMAT equ 11 

ETD_UPDATE equ 4 

ETD_CLEAR equ 5 

;IORequest-Block-Extension 
50 I0TD_C0UNT ds.l 1 

54 IOTD_SECLABEL ds.l 1 

IOTD_SIZE equ $58 

TD_LABELSIZE equ 16 

;Error-Codes (in IOActual) 

TDERR_NotSpecified equ 20 

TDERR_NoSecHdr equ 21 

TDERR_BadSecPreamble equ 22 

TDERR_BadSecID equ 25 

TDERR_BadHdrSum equ 24 



Anhang A4: Datentypen, Strukturen, Offset-Tabellen, Konstanten 317 


TDERR_BadSecSum 

TDERR_TooFevSecs 

TDERR_BadSecHdr 

TDERRJJriteProt 

TDERR_DiskChanged 

TDERR_SeekError 

TDERR_NoMem 

TDERR_BadUnitNum 

TDERR_BadDrlveType 

TDERR Drivelnllse 


equ 

25 

equ 

26 

equ 

27 

equ 

28 

equ 

29 

equ 

30 

equ 

31 

equ 

32 

equ 

33 

equ 

34 
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Anhang A5: CLI 

- Einführung in das CLI 

- Einrichten der Arbeitsdisketten 

- Include-Tips 

- Tips und Tricks zum CLI 

Dieser Anhang will Sie schnell soweit mit dem CLI bekanntmachen, wie es für die 
ersten Schritte in der Assembler-Programmierung erforderlich ist. Darüber hinaus 
möchte ich auf das Handbuch von Commodore und das Amiga-Buch von M. Breuer 
(Markt & Technik) verweisen. Der Abschnitt über Tips und Tricks setzt schon voraus, 
daß Sie die etwas komplizierteren CLI-Dinge anhand dieser Literatur verstanden 
haben. 

CLI heißt Command Line Interpreter. Auf gut deutsch: Sie geben Kommandos über 
die Tastatur ein, das CLI interpretiert diese Kommandos und führt sie aus. Praktisch 
liegt hiermit die Bedienoberfläche der CP/M- oder MS-DOS-Computer vor, nur ist das 
CLI deutlich leistungsfähiger als zum Beispiel MS-DOS. 

HFS 

Jedes DOS kümmert sich in erster Linie um Files (Dateien). Wie diese Files auf der 
Disk angeordnet und aufzufinden sind, bestimmt das File-System. Der Amiga hat ein 
hierarchisches File-System, kurz HFS genannt. 

Im HFS geht es um die Ablage von Files (Dateien), neuerdings auch Dokumente 
genannt. Der Vergleich mit einem Büro ist sehr zutreffend, wenn man vereinbart: 

- Die Disk (Diskette oder Harddisk) ist das Büro 

- Ein Directory ist ein Schrank 

- Ein Unterdirectory ist eine Schublade in einem Schrank 

- Ein Unter-Unterdirectory ist eine Schublade in einer Schublade 

- Ein Dokument kann an beliebiger Stelle liegen: 

-> mitten im Büro (auf dem Fußboden) 

■+ im Schrank (nicht in einer Schublade) 

-* in einer Schublade 

-»in einer Schublade, die in einer Schublade ist 

Im Unterschied zum Schrankmodell kann man nahezu beliebig oft in eine Schublade 
immer wieder noch eine Schublade packen, in diese noch eine usw., wobei jedoch die 
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innere Schublade nicht kleiner sein muß, als die sie umgebende, genauer: Die Größe ist 
nicht definiert. Sie können in eine Schublade so lange Files packen, bis die Disk voll ist. 

Namen von Disks 

Sowohl die Disk als auch die Schubladen haben Namen, die Sie vergeben können. Ein 
Diskname endet immer mit einem Doppelpunkt. Sie können eine Disk aber nicht nur 
mit ihrem Namen ansprechen (manche hat gar keinen) sondern zusätzlich auch mit 
dem Gerätenamen. Dafür gilt: 

DFO: = Diskette 0 

DF1 = Diskette 1 

JHO = Harddisk 0 (Janus Harddisk) 

Es gibt noch einen Namen, und das ist 

SYS: 

SYS: bezeichnet immer die Boot-Diskette. Hat Ihre Boot-Diskette zum Beispiel den 
Namen WBENCH, so können Sie die ansprechen mit 

WBENCH: 
oder DFO: 
oder SYS: 

Namen von Directories und Files 

Eine Schublade wird fachmännisch Directory genannt. In den CLI-Befehlen taucht 
dafür auch das Kürzel DIR oder D auf. 

Grundsätzlich gibt es keinen Unterschied, den Sie bei der Namensvergabe beachten 
müssen. Es dürfen sogar ein File und das Directory, in dem sich der File befindet, den¬ 
selben Namen haben. Im allgemeinen erkennt man jedoch einen Directory-Namen am 
nachfolgenden Schrägstrich. 

Pfadnamen 

Letztendlich wirken die meisten Operationen immer auf einen File. Nehmen wir fol¬ 
gendes Beispiel: 

Auf der Diskette im Drive DFO: 
gibt es ein Directory namens ASSEMBLER 
darin ein Directory namens SOURCES 
und darin einen File namens TEST.S 
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Dann können Sie den File TEST.S ansprechen mit 
DF0:ASSEMBLER/SOURCES/TEST.S 

Diese Gebilde nennt man Pfadnamen. Der sicherste Weg zu einem File ist immer der 
vollständige Pfadname. Da dies jedoch eine Menge Tipperei bedeutet, gibt es einige 
Methoden der Abkürzung, wie wir noch sehen werden. 

CLI-Befehle 

CLI-Befehle werden eingetippt und mit Return abgeschlossen. Der einfachste CLI- 
Befehl heißt DIR. DIR gibt das aktuelle Directory auf dem Schirm aus. Solange Sie 
keinen Pfadnamen angeben, wirken alle Befehle immer im aktuellen Directory. Die 
Anzeige des aktuellen Directory erreichen Sie mit CD. 

CD (Change Directory) mit einem Pfadnamen ändert das aktuelle Directory. Tippen 
Sie (immer mit Return zum Schluß): 


Befehl 

Wirkung 

CD dfO: 

DIR 

MAKEDIR xyz 
CD xyz 

Sie sind ganz oben (im Root-Directory) 

Anzeige aller Files und DIRs auf dieser Ebene 
Anlegen eines neuen Directory, Name xyz 

Sie sind im neuen Directory 


Einrichten einer Arbeitsdiskette 

Legen Sie zuerst eine Kopie der Workbench-Diskette an (besser zwei). Arbeiten Sie 
nur mit einer Kopie! Nach dem Start und dem Öffnen der Workbench-Disk sollten Sie 
ein Icon mit dem Namen CLI sehen. Wenn nicht, rufen Sie »Preferences« (durch 
Anklicken) auf und klicken Sie dort »CLI ON«; dann diesen Zustand sichern. Ab jetzt 
sollte bei jedem Start das CLI-Icon sichtbar sein. 

Das CLI wird durch Anklicken gestartet. Es erscheint ein eigenes Window, das in der 
Regel zu klein ist. Ziehen Sie auf fast volle Schirmgröße. Bei dieser Gelegenheit ein 
Tip: Programmieren Sie niemals Fenster auf die volle Schirmgröße. Es könnte sein, 
daß durch Schwankungen der Monitore oder der Stromversorgung dann Teile des Fen¬ 
sters nicht mehr sichtbar sind. 

Um gleich beim Start in das CLI zu gelangen, müssen Sie die Startup-Sequence ändern. 
Das ist ein File (reiner Text) mit CLI-Befehlen, die bei jedem Start automatisch aus¬ 
geführt werden. Wie alle diese Batch-Files (Ausführung sonst mit EXECUTE File¬ 
name) befindet er sich im s-Directory. Gehen Sie mit »CD s« in dieses Directory, laden 
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in den Editor (ED, siehe Handbuch) den File »startup-sequence«, entfernen die mei¬ 
stens letzte Zeile der Form »endcli >nil:« und speichern den File wieder ab. 

Nun greifen Sie zur Panik-Taste (Control plus beide Amiga-As gleichzeitig drücken) 
und starten damit das System neu. Übrigens werden Sie es kaum vermeiden können 
(ich jedenfalls nicht), im Zuge von Programmentwicklungen in Assembler diese Tasten- 
kombination des öfteren zu benutzen. 

Platz beschaffen 

Die Diskette ist leider immer noch sehr voll, der Assembler mit Zubehör paßt da nicht 
mehr hinauf. Bei HiSoft (DEVPAC) ist das Problem wunderbar gelöst (siehe Hand¬ 
buch), ansonsten müssen Sie wohl für Platz sorgen. Gehen Sie in C-Directory (CD :c) 
und geben Sie DIR. Sie finden hier alle CLI-Befehle, von denen Sie fast alle löschen 
können (DELETE Name). Wirklich oft braucht man nur CD, COPY, DELETE, DIR, 
MAKEDIR und den Editor ED sowie EXECUTE, wenn Sie mit dem Metacomco- 
Assembler arbeiten. Falls etwas fehlt, kann man ja immer noch die ungekürzte Disk 
nehmen, oder das Programm wieder hinzukopieren. 

Ansonsten hangeln Sie sich ruhig einmal durch alle Directories. Mit »CD Name« errei¬ 
chen Sie ein »Dir«. Befindet sich im »Dir« noch ein »Dir«, hilft wieder CD. Mit 
»CD /« kommen Sie eine Ebene höher, mit zwei »/« zwei Ebenen. Mit »CD :« sind Sie 
wieder ganz oben, nur CD zeigt an, wo Sie gerade sind. 

Auf dieser Wanderung können Sie alle Fonts löschen (der System-Font im ROM oder 
Kickstart-RAM ist nicht dargestellt). Falls Sie kein Bridge-Board oder Sidecar ein- 
setzen, sind natürlich alle Files im PC-Ordner überflüssig. Solange Sie nur einen Druk- 
ker haben, brauchen Sie auch nur dessen Treiber (siehe Namen in Preferences), alle 
anderen löschen Sie. Von den Map-Files (Tastatur-Treiber) brauchen Sie nur d 
(deutsch) und usaO, falls Sie das DECPAC einsetzen. Übrigens: Meine DEVPAC-Ver- 
sion funktioniert mit der deutschen Tastatur des Amiga 2000 (und 500) nicht. Ich muß 
vor dem Aufruf von GenAm immer »setmap usaO« geben und dann die Sonderzeichen 
auf der Tastatur suchen (nach einer Weile weiß man, wo was hegt). Als Empfehlung 
(ganz sicher) diese Anweisungen: 

cd : 

delete fonsts all 

delete Utilities all ;Einen evtl. Error ignorieren 

delete /?i.info 

delete empty all 

delete trashcan all 

delete clock 
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Assembler-Tools kopieren 

Nun sollten Sie Ihren Assembler und wenn nötig den Linker (ALINK) sowie den 
Debugger (MonAm) bei HiSoft in das C-Directory kopieren. C-Directory deshalb, weil 
der Amiga alle Programm-Files zuerst im aktuellen Directory sucht und dann im C. 
Vorteil dieser Methode: Wo Sie auch sind, die Programme werden immer gefunden. 

Nehmen wir an, Sie arbeiten mit ASSEM und ALINK und haben nur einen Drive. Die 
Include-Files wollen Sie auch; dann sollten Sie so verfahren: Löschen Sie auf der 
Arbeitskopie die Files wie oben oder mehr und geben dann ein: 


delete ram:/? 
copy c:assign to ram: 
copy c:dir to ram: 
copy c:cd to ram: 
copy c:makedir to ram: 
copy c:delete to ram: 
assig c: ram: 

Nun legen Sie die Diskette mit ASSEM und ALINK ein und tippen: 
cd dffl: 

copy c/assem to ram: 
copy c/alink to ram: 
makedir ram:include 
copy include to ram: all 

Nun legen Sie wieder die Arbeitsdisk ein und tippen: 
cd df0: 

copy ram:assem to c 
copy ram:alink to c 
makedir include 

copy ram:include to include all 


Include-Tips 

Falls Sie nicht alle Include-Files auf der RAM-Disk unterbringen können oder dafür 
der Platz auf der Zieldiskette fehlt, dann beschränken Sie sich auf die wichtigsten 
(DOS, Exec, Graphics und Intuition). Aber Vorsicht: Einzelne Files haben die Eigen¬ 
schaft andere nachzuladen. Gleich zu Anfang des Files finden Sie eine Anweisung der 
Form »IF NOT DEF Kenner INCLUDE Filename Kenner SET 1«. Das heißt, wenn 
das Label Kenner nicht definiert ist, dann lade das File und setze das Label. Sehr oft 
wird allerdings ein ganzer Include-File geladen, um nur ein oder zwei Daten daraus zu 
verwenden. Da der Include-File auf diese Art auch wieder Include-Files nachlädt, hat 
man so sehr bald riesige Dateien beieinander. 
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So wächst dann ein Mini-Programm für den Assembler auf 2000 Zeilen und mehr, was 
auf Disketten ganz schön Zeit kostet (mit einer Harddisk stört das kaum). In dem Fall 
sollten Sie die Include-Files maßschneidern. Nehmen Sie den wichtigsten (den Ober¬ 
file) xxxlib.i, streichen die Zeilen mit dem »IF NOT DEF« und assemblieren. Der 
Assembler sagt Ihnen dann, was ihm nun fehlt. Diese Definitionen kopieren Sie nun 
aus dem an sich zu »includenden« File heraus. 

CLI-Tips 

Hilfe: Wenn Sie ein Kommando nicht genau kennen, hilft es, das Kommando ohne 
Parameter zu tippen. Dann sollte »Usage« (die Gebrauchsanleitung) erscheinen. 
Immer hilft nach dem Befehl ein Blank, gefolgt von einem Fragezeichen. 

Mini-Editor 

Wenn Sie einmal schnell einen MAKE-File erstellen wollen und nicht für die paar 
Zeilen den Editor anwerfen wollen, so gilt 

copy * to filename 

* ist das Symbol für das aktuelle CLI-Fenster. Beendet wird dieser Modus mit Control- 
Bäckslash (\). Mit »copy * to prt:« können Sie auf den Drucker ausgeben, um so Vor¬ 
einstellungen (über Escape) vorzunehmen oder auch einfach nur für kurze Notizen. 

Schneller Kopieren 

Im oben genannten Beispiel habe ich über die RAM-Disk kopiert, was sehr viel 
schneller geht, als über die Disk. Das liegt daran, daß DOS nur einen kleinen Puffer 
zur Verfügung stellt und so den File in vielen Teilstücken behandelt. Im Fall der RAM- 
Disk geht es zirka viermal schneller. 

Wenn viele Files zu kopieren sind, hilft es, das COPY-Kommando in die RAM-Disk 
auszulagern. Sonst lädt nämlich DOS nach jedem File COPY neu von der Diskette. 
Also schreiben Sie vorher: 

copy c:copy to rau: 

und schreiben dann zum Beispiel: 

ram:copy Quell-Liste to Ziel 

Übrigens: Die Listings zu diesem Buch habe ich alle in einem Directory bearbeitet und 
wenn sie dann liefen, in das Directory »buch« NICHT kopiert. Setzt man nämlich 
anstatt COPY dann RENAME ein, erreicht man das gleiche sehr viel schneller, und hat 
dann noch den Vorteil, nicht auch die Quelle löschen zu müssen. 
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Workbench plus CLI 

Wenn Sie erst nach dem Start entscheiden wollen, ob Sie die WB oder das CLI nutzen 
wollen, können Sie natürlich mit der WB starten und dann später das CLI-ICON 
anklicken. Eine Alternative wäre diese: Lassen Sie im File Startup-Sequence die letzte 
Zeile (endcli >nil:) original stehen und schreiben ein neue Zeile dahinter: 

NEWCLI CON:x/y/b/h/text 

Für x/y/b/h müssen Sie Zahlen einsetzen und zwar: 
x,y: linke, obere Ecke des Fensters 

b,h: Breite und Höhe des Fensters 

Für »text«: ein beliebiger Text (der in der Breite paßt) 

Das Fenster würde ich zu Anfang nach außen legen und es klein lassen. Bei Bedarf 
kann man es immer noch mit der Maus verschieben und in der Größe ändern. Auf 
jeden Fall brauchen Sie jetzt nur im Fenster zu klicken und sind sofort im CLL 

Schnelles CLI 

Alle CLI-Kommandos sind Programme, die bei jedem Aufruf von der Diskette geladen 
werden. Abhilfe bringt, die wichtigsten Kommandos in die RAM-Disk zu bringen (oder 
alle). Dies geschieht mit 

COPY konuoandoname to ram:c 

Nun haben Sie zwei Möglichkeiten: Sie setzen jetzt immer vor das Kommando ein ram: 
oder Sie sagen dem DOS einmalig, es soll das Kommando auf der RAM-Disk suchen. 
Letzteres geschieht durch 

assign c: ram: 

Die entsprechenden Kommandos können Sie auch in die Startup-Sequence schreiben, 
dann haben Sie den Zustand automatisch nach dem Einschalten. 

Übrigens: Wenn Sie die RAM-Disk auch unter der Workbench nutzen wollen, brau¬ 
chen Sie dafür ein Disketten-Icon. Das generiert (auch in Startup-sequence) der 
schlichte Befehl »dir ram:«. 
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Stichwortverzeichnis 

2er-Komplement 83 

AbsExecBase 60 
Access Mode 88 
Adressen, effektive 49 
symbolische 23 
Adressierung 41 
absolute 52 

Adressierungsarten 41, 47, 48, 49,164 

Adreßdistanz 51 

Adreßregister 45 

Adreßtabelle 98,103 

ALINK 22 

ALU 171 

Amiga-BASIC 220 

AmigaDOS 227 

APTR 188 

Arbeitsdisketten 318 

ARI 51 

- mit Adreßdistanz 51 

- mit Postinkrement 51 

- mit Predekrement 51 
Arithmetic Logic Unit 171 
Arithmetische Befehle 166 
ASCII-Code 62, 86 
ASCII-Tabelle 101 
ASCII-Zeichen 89 
Assembler 17,18, 20, 21 
Assemblerbefehle 47 
Assembler-Listing 115 


BASIC 18 

BASIC-Interpreter 19 
Batch 119 
Batch-File 66 
BCD 46 

BCD-Arithmetik 167 
BCPL-Pointer 188 
BCPL-String 188 
Bedieneroberfläche 228 
Bedingtes Assemblieren 111 


Befehl 33, 47 
Befehls-Decoder 171 
Befehls-Register 171 
Befehlssatz 164 
Befehlssequenz 234 
Befehlswort 50 
Betriebsart 35 
Bibble 46 
Bibliotheken 21, 57 
binär 37 

Binary Coded Decimal 46 
Binärzahlen 37 
bindec 124 
Binder 22 
Bit 17,45 
Bit-Befehle 168 
BitMap 140 
Bit-Schieben 89 
BLINK 26 
BlockPen 139 
Border-Struktur 202 
Borgen 83 
Bottom Up 121 
BPTR 188 

Branch on Condition 73 

Branch to Sub Routine 77 

Branch-Befehl 83 

Breakpoint 25 

BSS 79, 207 

BSTR 188 

Bug 22 

Bus 32, 33, 45 

Bus-Error 33,174 

Byte 17,45 

Bytefolgen 33 

C in Assembler 203 
C-Strukturen 186 
C-Typen 204 
CALLEXEC 143 
CALLINT 144 
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Carry-Flag 83 
CASE X OF 98 
CCR 82 
CheckMark 140 
Chip 33 

CLI 60,148, 228,318 
CLI-Befehl in BASIC 220 
CLI-Befehle aufrufen 233 
CLI-Kommandos 74 
CLI-Tips 323 
CloseLibrary 58 
Code 79,200 
Code-Module 118 
Compiler 19 
Compiler-Switch 207 
Computermodell 32 
CON: 85 

Condition Code Register 82 
Console 85 
CPM-Anweisung 73 
CPM-Befehl 84 
CPU 16,32 
Cursortasten 86 

DATA 79, 207 
Data-Segment 80 
Datenbyte 45 
Datenregister 45 
Datenstrukturen 178 
Datentransfer 46 
Datentypen in C 203 
Datenwörter 34 
DBcc-Befehl 73 
DBcc-Schleife 71 
Debugger 22,173 
-, symbolisch 23 
Decodierung 172 
define 203 
DetailPen 139 
Developer’s Manuals 24 
Device 227, 229 
DEVPAC 26, 64, 65, 207 
DF0: 319 
DF1: 319 
Directory 230, 233 
Direktive 101 
Disassembler 50 


Disk-Validator 227 
Dispatcher 57 
Dividieren 126 
DOS 56,227,232 
DOS-Funktionen 61 
DOS-Prozeß 151 
DOSBase 60 
Dualzahlen 37 

ea 49 
Editor 21 

Einzelschrittbearbeitung 173 
EQU 116 
Equates 101 
Event 193,199 
Event-Handling 199 
Exceptions 173 
- beimAmiga 175 
Exec 56, 226, 227, 229, 234 
EXECUTE-Befehl 33,234 
Executive 226 

Fehlermeldung 22 
Fetch 33 
FIB 230, 232 
File Info Block 230 
File-Header 216 
Flag-Bit 200 
Flags 83 
Fonts 191 
Forbid 152 
Force Uppercase 101 
Führende Nullen 131 
Funktions-Code 174 
Funktionstasten 86 

Gadget 139,200,202 
Gadget-ID 202 
Gadget-Struktur 202 
GEMINST 26 
GetMsg 152 
GOSUB 39 
GOTO 82 
Graphics 144 
Geräte-Treiber 229 

Handle 88 
Hex-Code 50 
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Hex-Darstellung 89 
Hex-Dezi-Konvertierung 36 
Hex-Konverter 89 
HEX-Wandlung 89 
HiSoft 26,27 
HiSoft-Assembler 29 
Hochsprache 18 
HSF 318 

Icon-Editor 158 
Icons 158 
IDCM-Port 145 
IDCMPFlags 139 
IDCPM 140 
IF 82 

IF THEN 88, 93 
Include 203 

Include-Anweisung 69,116 
Include-File 21, 69,116,179 
Include-Tips 318, 332 
Index 51 

Innere Struktur des 68000 171 
Interrupt-Maske 83 
Intuition 56, 144, 200, 227 
Intuition-Window 178 

JH0: 319 

Knoten 229 

Kommandozeile 74, 75,153, 214 
Kommentar 58 
Kommunikation 141 
kommunizieren 138 
Konstante 79 

Konstanten-Adressierung 52 
Konvertierung 90,124 

Label 89 

lageunabhängig 53, 206, 207 
Langwort 45 
- in Dezimalstrings 160 
LaufVariable 52 
LC 102 

Library 21, 57,139,143, 227 
Library-Offset 116 
LIFO 38 
LINK 164 


Linken 66 
Linker 22, 26 
Linker-Lauf 66 
LINKLIB 111 
Listen 229 

Location Counter 101,104 
Lock 230,232 
logisch UND 90 
Logische Befehle 178 

Makrobefehl 108,172 
Makroprozessor 113 
Makrosprache 108 
Makros 25,108,172,179 
Marke 58 

Maschinen-Code 19 
Maschinenprogramm aufrufen 210 
Maschinensprache 16, 17 
Maske 90 

Mehrfachverzweigung 91, 96 
Memory 21 
Menüs 201 
Message 138, 200 
Message-Port 138,157, 200 
Metacomco-Assembler 23 
Mikro-Code 171, 172 
Mini-Editor 323 
MMU 45 
Modul 26,118 
Modus 49 
MonAm 28 

MOUSEBUTTONS 144 
MOUSEMOVE 144 
MOVE 46 
MOVE-Befehl 164 
Multiplizieren 97 
Multitasking 138, 139, 226 
Multitasking-Kern 35 
Multitasking-System 57,152 

Namen von Directories und Files 319 

Namen von Disks 319 

Nano-Code 172 

NARG 111 

NEWCLI 148 

Nibble 89, 90 

Null-Byte 62 
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Objekt-File 21 
Offset 53, 79, 181, 182, 200 
Offset-Tabelle 185,187 
ONXGOSUB 93 
Op-Code 115 
OpenLibrary 57 
Operanden 47, 58 
Operandenlängen 164 
OS 56 

Overflow-Bit 83 
PAR: 85 

Parallelschnittstelle 85 
Parameterübergabe 216 
parsen 215 
Parser 215, 216 
Pascal 18 
PC 34, 45 

PC-relative Adressierung 52, 206 

Peripherie-Geräte 17 

Permit 152 

Pfadname 319 

PLB 152 

Pointer 188 

Polling 138, 157 

Polygon 202 

Position Independend 53, 206, 207 

Prefetch 172 

Priorität 174, 226 

privilegiert 35 

Programm 16,33 

-, ABS 214 

Programm-Betriebsart 148 
Programm-Unit 216 
Programmsteuer-Befehle 170 
Programmzähler 45 
Prozeß 151, 226 
pr_MsgPort 152 
Puffer 68 

Quelltext 22 
quittieren 139 

RAM 32 
RAW: 85,88 
Rechenwerk 171 
Register 44 
-, direkt 50 


Registermodell 32, 45 
Registeroperation 45 
relokatibel 52 
RepyMsg 152 
Requester 202 
Reset 33 

Ressource 226, 227 
Return-Adresse 40, 49, 134, 218 
- entfernen 97 
ROM 32 

ROM-Kernal-Manual 149 
Rotierbefehl 169 
rotieren 90 

Schiebebefehl 169 
Schleife 69, 90, 128 
Scratch 75 
Screen 139, 190 
SECTTON 79, 207 
Segment 80, 207 
SEKA 25, 65 
SEKA-Assembler 14 
SER: 85 

Serielle Schnittstelle 85 
SET 116 
Shell 23 

Shell-Befehl 220 
Smart Refresh 144 
Sondertasten 86 
SP 38 

Speicher 17, 32,33 
Sprungtabelle 96 
Sprungweite 77 
Stack 38 

Stackmechanismus 39 
Stackpointer 39, 45, 48 
Startup-Code 149 
startup-sequence 228 
startup.i 150 
Statusregister 45, 82 
Steuerwerk 171 
String-Eingabe 67 

Struktur 106,139, 140, 179, 186, 204, 229 

Struktur der Sprache 107 

Suchen 103 

Super-Statuswort 174 

Supervisor 35 
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Supervisor-Bit 83 
Supervisor-Modus 82, 172, 173 
SWAP-Befehl 126 
SYS: 319 
SysBase 60 
System-Gadgets 141 

Tabelle 98 

Tabellenzugriff 160 

Task 57, 138, 148, 226, 227, 229 

Task Control Block 226, 229 

Task-Kontroll-Struktur 151 

Task-Zustand 226 

TCB 229 

Text 79 

Textmodul 118 

THEN 82 

Top Down 121 

Trace-Bit 83,173 

Trace-Vektor 173 

Tracing 28,173 

Trap-Befehl 173 

Übertrag 83 

Universelles Programm 132 


UNLINK 164 
Unterprogramm 75, 96 
User 35 
User-Byte 173 
User-Gadgets 141 
User-Modus 82,172,173 

Wait 138 
Warnings 22 
wd_UserPort 145 
Window 56, 84,139,143,187 
Window-Pointer 187 
Workbench 56, 227, 228 
Workbench-Screen 139 
Wort 45 

XDEF 65 

Z-Flag 84 

Zahlensystem, dual 36 
-, hexadezimal 35 
Zahlenwandlung 125 
Zieloperanden 49 
Zugriffsrecht 152 
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dungen: bewegte/farbige 
Grafiken; Musik- und 
Sprachausgabe, Strings, 
Felder Mathematik, Datei¬ 
behandlung, Ein-/Aus- 
gabe sowie »Entwurf von 
Programmen«. 

Best.-Nr. 80369 
ISBN 3-921803-69-1 
DM 59- 



H.-R. Henning 

Programmieren mit 
Amiga-BASIC 

1987, ca. 360 Seiten, 
inkl. Diskette 

Einführung in die Program¬ 
mierung des Amiga-BASIC: 
Grafik, Sprites, Sprachaus¬ 
gabe, sequentielle Dateien, 
Fenstertechnik, Musik, Tips 
und Tricks. 


Hard- und Software- 
Anforderungen: Amiga 
500, 1000 oder 2000 mit 
512 Kbyte Arbeitsspeicher, 
gegebenenfalls ein grafik¬ 
fähiger Matrixdrucker und 
ein Joystick, Amiga-BASIC 
von Microsoft 
Best.-Nr. 90434, 

ISBN 3-89090-434-3 
DM 59,- 



W. Hilf/A. Nausch 

M68000-Familie: Teil 1 
Grundlagen und 
Architektur 

1984, 568 Seiten 
Ausbildungs- und Ent¬ 
wicklungstext mit allen 
notwendigen Informatio¬ 
nen über den M68000. 
Best.-Nr. 80316 

ISBN 3-921803-16-0 
DM 79,- 

W. Hilf/A. Nausch 

M68000-Familie: Teil 2 
Anwendungen und 
68000-Bausteine 

1985, 400 Seiten 

In vielen Programmierbei¬ 
spielen liefert dieses Buch 
die Praxis der in Teil 1 ver¬ 
mittelten Theorie. 

Best.-Nr. 80330 
ISBN 3-921803-30-6 
DM 69,- 
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Das mächtige CLI-W 


Haben Sie das Eintippen satt? 
Zing! ermöglicht Ihnen den 
mausgestützten Zugriff auf Ihr 
Amiga-Betriebssystem. 

Dieses Programm übernimmt 
die lästige und fehleranfällige 
Tipparbeit beim Arbeiten mit 
dem Betriebssystem Ihres 
Amiga. Zing! befindet sich nach 
dem erstmaligen Abrufen im 
Hintergrund und kann mit Hilfe 
von sogenannten »Hotkeys« 
jederzeit in Aktion treten. Volle 
Multitasking-Fähigkeit ist selbst¬ 
verständlich. Wahlweise über 
Maus oder Funktionstasten 
stehen Ihnen speicherresident 
unter anderem folgende Funk¬ 
tionen zur Verfügung: 

• Verzeichnis wechseln - Anzei¬ 
gen eines Dateibaums - Dateien 
kopieren - Dateien umbenennen 
- Dateien schreibschützen - 
Restspeicheranzeige - Dateien 
löschen - Dateien zusammen¬ 
führen - Dateien verlagern - 
Verzeichnisse erstellen - Datei¬ 
kommentar erstellen - System¬ 
statusanzeige - automatische 
Bildschirmabschaltung (Screen 
Saver) ...und vieles mehr! Die 
Auswahl der Dateien kann mit 
der Maus vorgenommen 
werden, mögliche Kriterien sind 
zum Beispiel auf Dateinamen 
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Bestell-Nr 51670 


DM 189,- 


(sFr 169,-*/öS 2290,-*) 

* Unverbindliche Preisempfehlung 


3 ."-Diskette 

Markt&Technik_MS 


basierende Sortiermuster oder 
der Zeitpunkt der Dateierstel¬ 
lung. Verzeichnisanzeige mit 
Schnellsortierdurchlauf ist bei 
Zing! genauso selbstverständ¬ 
lich wie die Möglichkeit, sowohl 
ganze Dateibäume als auch 
Teile von ihnen zu kopieren. Zu¬ 
sätzlich enthält das Programm 
viele nützliche Dienstprogram¬ 
me, zum Beispiel: 

• Druckerspooler- Bild¬ 
schirmausdruck - Speichern 
eines Bildschirms als IFF-Grafik 
- Überwachung von anderen 
Programmen 

• Umbelegung der Funktions¬ 
tasten - interne Symbol¬ 
zuweisung 

• Diskcopy-Funktion- Disket¬ 
ten installieren - Disketten 
umbenennen - Disketten 
formatieren - direkter Aufruf 
von Programmen 

Lieferumfang: 

• deutsche Programmversion 
auf 3V2"-Diskette 

• Handbuch deutxh 

Hardware-Anforderungen: 

• Amiga 500,1000 oder 2000 

Software-Anforderung 

(speziell für Amiga 1000) 

• Kickstart 33.180 (Version 1.2) 
oder höher 


-äuWes' ha ' len 
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Ein komplettes Assembler- 
Entwicklungspaket für 
Amiga-Programmierer! 

Mit diesem Entwicklungspa¬ 
ket erhalten Sie eine Reihe 
von Programmen, die Sie bei 
der Erstellung von 68000er- 
Assembler-Programmen und 
deren Umgang tatkräftig un¬ 
terstützen. Enthalten sind: 

• GenAmiga, ein Makro- 
Assembler mit integriertem 
Bildschirmeditor. 

Durch die Kombination von 
Assembler und Editor wird 
eine problemlose Eingabe 
und ein schnelles Assemblie- 
ren (1000 Zeilen in 6 Sekun¬ 
den bei Verwendung einer 
RAM-Disk) gewährleistet. Der 
Editor unterstützt alle gängi¬ 
gen Standardfunktionen und 
arbeitet unter Intuition - es 
muß also nicht auf Fenster¬ 
technik, Mausbedienung und 
Menüs verzichtet werden. 

Der Zwei-Paß-Assembler er¬ 
füllt den Motorola-Standard. 
Mit hoher Geschwindigkeit 
können sowohl linkbare als 
auch sofort ausführbare Bi¬ 
närdateien generiert werden. 
Bei Auftritt eines Fehlers er¬ 
folgt automatisch ein Rück¬ 
sprung in den Editor Zeit¬ 
raubendes Nachladen und 
Speichern entfällt. 


SOFTWARE 


AMIGA 


HiSoft 

Devpac 

Assembler 


symbofaacbom Debugger und schnattern unket 
zum Einbinden von Hochsprachen-Modulen 
Erzeugt direkt ausführbare Programme 


3* -Diskette 
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• MonAmiga, ein symbo¬ 
lischer Debugger und Dis¬ 
assembler. 

Mit MonAmiga können Sie 
Ihre Programme im Spei¬ 
cher inklusive aller Labels 
überprüfen und müssen 
sich nicht mit sechsstelli¬ 
gen Hex-Zahlen auseinan¬ 
dersetzen. MonAmiga bie¬ 
tet auch die Möglichkeit, 
einzelne Befehle schritt¬ 
weise nacheinander aus¬ 
zuführen. Durch Pro¬ 
grammfehler entstehende 
Exceptions werden vom 
Debugger so abgefangen, 
daß es selten zu den be¬ 
rüchtigten »Guru«- 
Meldungen kommt. 
Devpac - Ihre professio¬ 
nelle Komplettlösung! 

Hardware- 

Anforderungen: 

Amiga500,1000 oder 
2000 mit mindestens 512 
Kbyte Arbeitsspeicher, 
Monitor und mindestens 
einem Diskettenlaufwerk. 

Software-Anforderung: 

Kickstart Version 1.1 oder 
höher 
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CUmatei.2 


Jetzt stehen Ihnen die 
Funktionen Ihres Amiga- 
Command-Line-Interface per 
Mausklick zur Verfügung! 

Mit diesem Programm können 
Sie die Befehle des Command- 
Line-Interface (CLI) benutzer¬ 
freundlich und schnell per 
Mausklick verwenden! 

Ihre Super-Vorteile mit 
CLImatel.2: 

• sehr große Übersichtlichkeit 
der Bildschirmdarstellung 
(Sie haben alle Funktionen 
auf einen Blick) 

• leichte Bedienung aller 
Befehle mit der Maus 

• drei externe Laufwerke 
( 3 V 2 " oder 5 V 4 "), zwei Fest¬ 
platten, RAM-Disk unter¬ 
stützen Sie 

• schnelle Directory-Anzeige 

• Sie können Disketten leicht 
nach Texten, Bildern u.ä. 
durchsuchen 

• Dateien lassen sich mit 
Pause/Continue-Möglichkeit 
betrachten 


• Ausdrucken von Dateien auf 
Drucker 

• Informationen über die Dis¬ 
ketten (Programmlänge und 
ähnliches) 

• Betrachten von Bildern im 
IFF-Format (inklusive HAM) 


• Sie können Dateien aus belie¬ 
bigen Verzeichnissen in ande¬ 
re Verzeichnisse kopieren 

• Bildschirmausgabe von 
Dateien in ASCII und in hexa¬ 
dezimaler Form 

• Unterstützung von Jokerzei¬ 
chen bei Disketten- und 
Dateioperationen 

CUmatei.2 - das unentbehrliche 
Programm für den Amiga-500-, 
Amiga-1000- und Amiga-2000- 
Besitzer. 

Am besten gleich bestellen! 

Hardware-Anforderungen: 
Amiga500,1000 oder 2000 mit 
mindestens 512 Kbyte Haupt¬ 
speicher. Empfohlene Hard¬ 
ware: Farbmonitor. 
Software-Anforderungen: 
Kickstart 1.2 (oder ROM bei 
Amiga 500 und 2000), Work- 
benchl.2. Eine 3V2"-Diskette für 
den Amiga 500,1000 und 2000. 


per Mauskück zurVerfügung 

3 '-Diskette für die 
Amiga 500.1000 und 2000 
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Bitte schneiden Sie diesen Coupon aus, und schicken Sie ihn in einem Kuvert an: 

Markt&Technik Verlag AG, Bucnverlag, Hans-Pinsel-Straße 2, 8013 Haar 
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Computerliteratur 
und Software vom 
Spezialisten 

l 

Vom Einsteigerbuch für deh Heim- oder Personalcom¬ 
puter-Neuling über professionelle Programmierhand¬ 
bücher bis hin zum Elektronikbuch bieten wir Ihnen inter¬ 
essante und topaktuelle Titpl für 


• Apple-Computer • Atafi-Computer • Commodore 
64/128/16/116/Plus 4 • Schpeider-Computer • IBM-PC, 
XT und Kompatible | 

sowie zu den Fachbereichen Programmiersprachen • 
Betriebssysteme (CP/M, M^-DOS, Unix, Z80) • Textver¬ 
arbeitung • Datenbanksystpme • Tabellenkalkulation • 
Integrierte Software • Mikroprozessoren • Schulungen. 
Außerdem finden Sie professionelle Spitzen-Programme 
in unserem preiswerten Software-Angebot für Amiaa, 
Atari ST, Commodore 128, I28D, 64, 16, fürSchneiaer- 
ComputerundfürlBM-PCs jnd Kompatible! 

Fordern Sie mit dem nebenstehenden Coupon unser 
neuestes Gesamtverzeichnis und unsere Programmser- 
vice-Übersichtenan, mithilfreichen Utilities, professionel¬ 
len Anwendungen oder packenden Computerspielen! 
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